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METHOD AND APPARATUS FOR TRANSMITTING CODED AUDIO 
: SIGNALS THROUGH A TRANSMISSION CHANNEL 
WITH LIMITED BANDWIDTH ' 

PRTiATFn APPLICATION 

The present application relates to co-pending PCT 
application PCT/US96/04974, filed April 10, 1996, 
entitled "System For Compression and Decompression of 
5 Audio Signals For Digital Transmission" by the same 

inventor and assigned to the Assignee of the present 
application. The co-pending PCT application noted above 
is incorporated by reference in its entirety along with 
any appendices and attachments thereto. 

FIELD OF THE INVENTION 
The present invention relates generally to an 
apparatus arid method for transmitting audio signals and 
pertains, more specifically, to an apparatus and method 
for transmitting a high quality audio signal, such as 
wideband speech, through a transmission channel having 
a limited bandwidth or transmission rate. 

BACKGROUND OF THE INVENTION 

Human speech lies in the frequency range of 
approximately 7 Hz to 10 kHz. Because traditional 
20 telephone systems only provide for the transmission of 

analog audio signals in the range of about 300 Hz to 
3400 Hz or a bandwidth of about 3 kHz (narrowband 
; speech) , certain characteristics of a speaker's voice 
are lost and the voice sounds somewhat muffled. A 
25 / telephone system capable of transmitting an audio signal 
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approaching the quality of face-to-face speech requires 
a bandwidth of about 6 kHz (wideband speech) . , 

\ Known digital transmission systems are capable .of 
transmitting wideband speech audio signals. However, in 
order to produce ah output audio signal of acceptable 
quality with a bandwidth of 6 kHz, these digital systems 
require a transmission channel with a transmission rate 
that exceeds the capacity of traditional telephone 
lines. A digital system transmits audio signals by 
coding an input audio signal into a digital signal made 
up of a sequence of binary numbers or bits , transmitting 
the digital signal through a transmission channel/ and 
decoding the digital signal to produce an output audio 
signal. During the coding process the digital signal is 
reduced or compressed to minimize the necessary 
transmission rate of the signal. One known method for 
compressing wideband speech is disclosed in 
Recommendation G . 722 (CCITT, 1988 j . A system using the 
compression method described in G. 722 still requires a 
transmission rate of at least 48 kbit/s to produce 
wideband speech of an acceptable quality. 

Because the maximum transmission rate over 
traditional telephone lines is 28.8 kbit/s using the 
most advanced modem technology, alternative transmission 
channels such as satellite or fiber optics would have to 
be used with an audio transmission system employing the 
data compression method disclosed in G. 722. Use of 
these' alternative transmission channels is both 
expensive . and inconvenient due to their limited 
availability. While fiber optic lines are available, 
traditional copper telephone lines now account for an 
overwhelming majority of existing lines and it is 
unlikely that this balance will change anytime in the 
near future. A digital phone system capable of 
transmitting wideband speech over existing transmission 
rate limited telephone phone lines is therefore highly 
desirable. 
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ORTFOTS OF THE INVENTION 
The disclosed invention has various embodiments 
that achieve one or more of the following features or; 

objects: 1 '; 

5 An object of the present invention is to provide 

for the transmission of high quality wideband speech. 
• over existing telephone networks.; 

A further object of the present invention is to; 
provide for the transmission of high quality audio 
10 signals in the range of 20 Hz to at least 5,500 Hz over 

existing telephone networks. 

A still further object of the present invention is 
to accomplish data compression on wideband speech 
signals to produce a transmission rate of 28.8 kbit/s or 
15 i ess without significant loss of audio quality. 

A still further object of the present invention is 
to provide a device which allows a user to transmit and 
receive high quality wideband speech and audio over 
existing telephone networks. 
20 A still further object of the present invention is 

to provide a portable device which is convenient to use 
and allows ease of connection to existing telephone 

■/networks.''. 

A still further object of the present invention is 
25 to provide a device which is economical to manufacture. 

A still further object of the present invention is 
to provide easy and flexible programmability. 

SUMMARY OF THE INVENTION 
In accordance with - the present invention, the 
30 disadvantages of the prior art have been overcome by 

providing a digital audio transmitter system capable of 
transmitting high quality, wideband speech over a 
transmission channel with a limited bandwidth such as a 
traditional telephone line. 
35 More particularly, the digital audio transmitter 

system of the present invention includes a coder for 
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coding an input audio signal to a digital signal having 
a transmission rate that does not exceed the maximum 
allowable transmission rate for traditional telephone 
lines and a decoder for decoding the digital signal to 
5 provide an output audio signal with an audio bandwidth 

of wideband speech. A coder and a decoder may be 
provided in a single device to ! allow two-way 
communication between multiple devices. A device 
containing a coder and a decoder is commonly referred to 
10 as a CODEC (COder/DECoder) . 

These and other objects, advantages and novel 
features of the present invention, as well as details of 
an illustrative embodiment thereof, will be more fully 
understood from the following description and from the 
' 15 . .drawings.-'. 

BRIEF DESCRIPTION OF THE DRAWINGS 
Fig. 1 is a block diagram of a digital audio 
transmission system including a first CODEC and second 
CODEC in accordance with the present invention. 
20 Fig. 2 is a block diagram of a CODEC of Fig. 1. 

Fig. 3 is a block diagram of an audio input/output 
circuit of a CODEC. 

Fig. 4 is a detailed circuit diagram of the audio 
input portion of Fig. 3. 
25 Fig. 5 is a detailed circuit diagram of the level 

LED 9 s portion of Fig. 3. 

Fig. 6 is a detailed circuit diagram of the 
headphone amp portion of Fig. 3. 

Fig. 7 is a block diagram of a control processor of 
30 a CODEC. 

Fig. 8 is- a detailed circuit diagram of the 
microprocessor portion of the control processor of Fig. 

Fig. .9 is a detailed circuit diagram of the memory 
35 portion of the control processor of Fig. 7. 
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Fig. 10 is a detailed circuit diagram of the dual 
UART portion of the control processor of Fig • 7 . 

Fig. 11 is a detailed circuit diagram of the 
keypad, LCD display and interface portions of the 
control processor of Fig. 7. 

Fig. 12 is a block diagram of an encoder of a 

codec. ' ■ ■"[ . ;,; . • •' : V 

Fig. 13 is a detailed circuit diagram of the 
encoder digital signal processor, and memory portions of 
the encoder of Fig. 12. Fig. 14 is a detailed 

circuit diagram of the clock generator portion of the 

encoder of Fig, 12. 

Fig. 15 is a detailed circuit diagram of the Reed- 
Soloman encoder and decoder portions of Figs. 12 and 16. 

Fig. 16 is a block diagram of a decoder of a CODEC. 

Fig. 17 is a detailed circuit diagram of the 
encoder digital signal processor and memory portions of 
the decoder of Fig. 16. 

Fig. 18 is a detailed circuit diagram of the clock 
generator portion of the decoder of Fig. 16. 

Fig. 19 is a detailed circuit diagram of the 
ana log /digital converter portion of the encoder of Fig. 

12. . . . . : . ' . -• • " -• .. .. ■ ; 

Fig. 20 is a detailed circuit diagram of ; the; . 

digital/analog converter portion of the decoder of Fig, 

■ 16. ; .. - ' \ ■ '[ ' ' . ' ' ■ ■' 

DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENT 
A digital audio transmission system 10, as shown in 
Fig. 1, includes, a first CODEC (COder/DECoder) 12 for 
transmitting and receiving a wideband audio signal such 
as wideband speech to and from a second CODEC 14 via a 
traditional copper telephone line' 16 and telephone 
network 17. When transmitting an audio signal, the 
first CODEC 12 performs a coding process on the input 
analog audio signal which includes converting the input 
audio signal to a digital signal and compressing the 
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digital signal to a transmission rate of 28.8 kbit/s or 
less. The preferred embodiment compresses the digital 
using a modified version of the ISO/MPEG (International 
Standards Organization/Motion Picture Expert Groups ) 
compression scheme according to the software routine 
disclosed in the microfiche software appendix filed 
herewith. The coded digital signal is sent using 
standard modem technology via- the telephone line 16 and 
telephone network 17 to the second CODEC 14. The second 
.CODEC 14 performs a decoding process on the coded 
digital signal by correcting transmission errors, 
decompressing the digital signal and reconverting it to 
produce an output analog audio signal. 

Fig. 2 shows a CODEC 12 which includes an analog 
mixer 20 for receiving, amplifying, and mixing an input 
audio signal through a number of input lines. The input 
lines may include a MIC line 22 for receiving an analog 
audio signal from a microphone and a generic LINE 24 
input for receiving an analog audio signal from an audio 
playback device such as a tape deck. The voltage level 
of an input audio signal on either the MIC line 22 or 
the generic LINE 24 can be adjusted by a user of the 
CODEC 12 by adjusting the volume controls 26 and 28. 
When the analog mixer 20 is receiving an input signal 
through both the MIC line 22 and the generic LINE 24 > 
the two signals tfill be mixed or combined to produce a 
single analog signal. Audio level LED's 30 respond to 
the voltage level of a mixed audio signal to indicate 
when the voltage exceeds a desired threshold level. A 
more detailed description of the anailog mixer 20 .-..'and 
audio level LED's 30 appears below with respect to Figs. 
; V.3' and 4./; : 

The combined analog signal from the analog mixer 20 
is sent to the encoder 32 where the analog signal is 
first converted to a digital signal. The sampling rate 
used for the analog to digital conversion is preferably 
one-half the transmission rate of the signal which will 
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ultimately be transmitted to the second CODEC 14 (shown 
in Fig, 1) . After analog to digital conversion , the 
digital signal is then compressed using a modified 

V version of the ISO/MPEG algorithm. The ISO/MPEG 
compression algorithm is modified to produce a 
transmission rate of 28.8 kbit/s. This is accomplished 
by the software routine that is disclosed in the 
; software appendix. 

The compressed digital signal from the encoder 32 
is then sent to an error protection processor 34 where 
additional error protection data is added to the digital 
signal. A Reed-Solomon error protection format is used 
by the error protection processor 34 to provide both 
burst and random error protection. The error protection 

7 processor 34 is described below in greater detail with 
respect to Figs. 12 and 15. 

The compressed and error protected digital signal 
is then sent to an analog modem 36 where the digital 
signal is converted back to an analog signal for 
transmitting. As shown in Fig. 1, this analog signal is 
sent via a standard copper telephone line 16 through a 
telephone network 17 to the second CODEC 14. The analog 
modem 36 is preferably a V.34 synchronous modem. This 
type .-'of modem is commercially available. 

The analog modem 36 is also adapted to receive an 
incoming analogr signal from the second CODEC 14 (or 
another CODEC) and reconvert the analog signal to a 
digital signal. This digital signal is then sent to an 
error correction processor 38 where error correction 
according to a Reed-Soloman format is performed. 

The corrected digital signal is then sent to a 
decoder 40 where it is decompressed using the modified 
version of the ISO/MPEG algorithm as disclosed in the 
software appendix. After, decompression the digital 
signal is converted to an analog audio signal. A more 
detailed description of the decoder 40 appears below 
with respect to Figs. 7, 16, 17 and 18. The analog 
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audio signal may then be perceived by a user of the 
CODEC 12 by routing the analog audio signal through a 
headphone amp 42 wherein the signal is amplified. The 
volume of the audio signal at the headphone output line 
.44 is controlled by volume control 46. 

The CODEC ,12 includes a control processor 48 for 
controlling the various functions of the CODEC 12 
according to software routines stored in memory 50. A 
more detailed description of the structure of the 
control processor appears below with respect to Figs. 7, 
8, 9, 10, and 11. One software routine executed by the 
control processor allows the user of the CODEC 12 to 
initiate calls and enter data such as phone numbers. 
When a call is initiated the control processor sends a 
signal including the phone number to be dialed to the 
analog modem 36. Data entry is accomplished via a 
keypad 52 and the entered data may be monitored by 
observation of an LCD 54. The keypad 52 also includes 
keys for selecting various modes of operation of the 
CODEC 12. For example, a user may select a test mode 
wherein the control processor 48 controls the signal 
path of the output of the encoder to input of decoder to 
bypass the telephone network allows testing of 
compression and decompression algorithms and their 
related hardware Also stored in memory 50 is the 
compression algorithm executed by the encoder 32 and the 
decompression algorithm executed by the decoder 40. 

Additional LED's 56 are controlled by the control 
processor 48 and may indicate to tlie user information 
such as "bit synchronization" (achieved by the decoder) 
or "power on". An external battery pack 58 is connected 
to the CODEC 12 for supplying power. 

Fig; 3 shows a lower - level block diagram of the 
analog mixer 20 / audio level LED's 30 and analog 
headphone amp 42 as shown in Fig. 2. Figs. 4 , 5 and 6 
are the detailed circuit diagrams corresponding to Fig . 



SUBSTITUTE SHEET (RULE 26) 



\VO 96/32805 PCT/DS96/D4835 

• "■ - 9 - • "V * 

Referring to Fig. 3 and 4 , line input 210 is an 
incoming line level input signal while mic input 220 is 
the microphone level input. These signals are amplified 
by a line amp 300 and a mid amp 3 02 respectively and 
5 their levels are. adjusted by line level control 304 and 

mic. level control 306 respectively. The microphone and 
line level inputs are fed to the input mixer 308 where 
they are mixed and the resulting combined audio input 
signal 310 is developed. 
10. Referring now to Figs. 3 and 5> the audio input 

signal 310 is sent to the normal and overload signal 
detectors, 312 and 314 respectively, where their level 
is compared to a normal threshold 316 * which def ines a 
normal volume level and a clip threshold 318 which 
15 defines an overload volume level. When the audio input 

signal 310 is at a normal volume level a NORM LED 320 is 
lighted. When the audio input signal 310 is at an 
overload volume level a CLIP LED 322 is, lighted. 

Referring now to Figs. 3 and 6,; the audio input 
20 signal 310 is fed into the record monitor level control 

324 , where its level is adjusted before being mixed with 
. the audio output signal 336 from the digital/ analog 
converter 442 (shown in Fig. 16 and 20). The audio 
output signal 3 36 is fed to the local monitor level 
25.: control 326 before it is fed into the headphone mixer 

amplif ier 334 . : The resulting output signal from the 
headphone mixer amplifier 334 goes to a headphone output 
connector 338 on the exterior of the CODEC 12 where a 
pair of headphones may be connected. 
30 The. audio input signal 310 and audio output signal 

336 are fed to record mix control 328 which is operable 
by the user. The output of this control is fed to a mix 
level control 330 (also operable by a user) and then to 
;' the record output amplifier 332. The resulting output 
; 35 signal of the record output amplif ier 332 goes .to a 

, record output 340 on the exterior of the CODEC 12 . 
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Fig. 7 shows a lower level block diagram of the 
control processor 48 (shown in Fig. 2) . The encoder 406 
(referenced as number 32 in Fig. 2) is further described 
in Fig. 12 while the decoder; 416 (referenced as number 
5 4 0 in Fig. 2) is refined in Fig. 16. Figs. 8, 9, .10, 

11, 13/ 14, 15, 17, 18, 19 and 20 are detailed circuit 
diagrams. * • 

. Referring to Figs. 7 and 8 the microprocessor 400 
is responsible for the communication between the usler, 
10 via keypad 412 and LCD display 414, and the CODEC 12. 

The keypad 412 is used to input commands to the system 
while the LCD display 414, is used to display the 
responses of the keypad 412 commands as well as alert 
messages generated by the CODEC 12. 
15 Referring now to Figs. 7 and 9, the RAM (random 

access memory) 402 is used to hold a portion of the 
control processor control software routines. The flash 
ROM (read only memory) 404 holds the software routine 
(disclosed in the software appendix) which controls the 
20 modified ISO/MPEG compression scheme performed by 

encoder DSP 406 and the modified ISO/MPEG decompression 
scheme performed by the decoder DSP 416, as well as the 
remainder of the control processor control software 
"' routines. 

25 Referring now to Figs. 7 and 10, the dual UART 

(universal asynchronous receiver/transmitter) 408 is 
used to provide asynchronous input/ output for the 
control processor 48. The rear panel remote control 
port 4 09 and the rear panel RS232 port 411 are used to 
30 allow control by an external computer . This external 

control can be used in conjunction with or instead of 
the keypad 412 and /or LCD display 414. 

Referring now to Figs.V 7 and li, the programmable 
interval timer circuit 410 is used to interface the 
35 control processor with the; keypad and LCD display. 

Referring now to Figs. 7, 8 and 13, the encoder DSP 
(digital signal processor) 434 receives a digital pulse 



SUBSTITUTE SHEET (RULE 28) 



WO 9602805 



- 11 - 



PCT/DS96/04835 



code modulated signal 430 from the analog/digital 
converter 450. The encoder DSP 434 performs the 
modified I SO /MPEG compression scheme according to the 
software routine (described in the software appendix) 
5 stored in RAM memory .436 to produce a digital output 

'418..' .v*' \ •■*■.. • • .. '\. •"">•■'• . . • : 

The A/D clock generation unit 439 is shown in Figs. 
12 and 14. The function of this circuitry is to provide 
all the necessary timing signals for the analog digital 
10 converter 450 and the encoder DSP 434. 

The Reed-Soloman error correction encoding 
circuitry 438 is shown in Figs/ 12 and 15. The function 
of this unit is to add parity information to be used by 
the Reed-Soloman decoder 446 (also shown in Fig. 16) to 
15 repair any corrupted bits received by the Reed-Soloman 

decoder 446. The Reed-Soloman corrector 438 utilizes a 
shortened Reed-Soloman GF (256) code which might contain, 
for example, code blocks containing 170 eight-bit data 
words and 8 eight-bit parity words. 
20 Referring now to Figs. 7, 16 and i7, the delcoder 

DSP 440 receives a digital input signal 422 from the 
modem 36 (shown in Fig. 2) . The decoder DSP 440 
performs the modified ISO/MPEG decompression scheme 
according to the software routine (described in the 
25 software appendix) stored in RAM memory 444 to produce 

a digital output to be sent to the digital/ analog : 
,■ converter 442* 

: The D/A clock generation unit 448 is shown in Figs. 
16 and 18. The function of this circuitry is to provide 
30 all the nepessary timing signials for the digital /analog 

converter 442 and the decoder DSP 440. 

The analog/digital converter 450, shown in Figs. 12 
' and 19, is used to convert the analog input signal 310 
into' a PCM digital signal 430. 
: 35 The digital/analog converter 442, shown in Figs. 16 . ~, 

and 20 is used to convert the PCM digital signal from 
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the decoder DSP 440 into an analog audio output signal 
' ' ' 336. ; • . ' \ . . • _ • .• 

. The Reed-Soloman error correction decoding 
circuitry 446, shown in Figs. 15 and 16, decodes a Reed- 
5 Soioman coded signal to correct errors produced during 

transmission of the signal through the modem 36 (shown 
in Fig. 2) and telephone network. 

Another function contemplated by this invention is 
to allow real time, user operated adjustment of a number 

10 of psycho-acoustic parameters of the IiSO/MPEG 

compression/decompression scheme used by the CODEC 12. 
A manner of implementing this function is described in 
applicant's application entitled "System For Adjusting 
Psycho-Acoustic Parameters In A Digital Audio Codec" 

15 which is being filed concurrently herewith (such 

application and related Software Appendix are hereby 
incorporated by reference). Also, applicants 

application entitled "System For Compression And 
Decompression Of Audio Signals For Digital Transmission" 

2b and related Software Appendix which are being filed 

concurrently herewith are hereby incorporated by 
reference. 

This invention has been described above with 
reference to a preferred embodiment. Modifications- and 
25 variations may become apparent to one skilled in the art 

upon reading and understanding this specification. It 
is intended to include all such modifications and 
alterations within the scope of the appended claims. 
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ic: : 1995. Copyright- Corporate Computer ■Systems.. 'Inc. All rights reserved. 

■ • nolist ' : 
\:>GCS7\def .asm . 
This file Contains the definitions for various ; structures . V; 

The following is the minimum value for sib. The true value is -1 but- ' •* 
IhSt causes some computational dif f iculities so -120 db is used The , 
\j£l«™Su~«^23),.i. about .138 db so ..there. is some . room left below . 
-120, db 

define MINDB : .'-.6228589' ;-120 \dB in slb;s 

. define MINDB ' - - 73 • - : ;-120,dB .in slb.s 

Define the 10 for the watch dog' timer for bit set and bit clears*. 

... define WATCK.DOG. . ' r> . x : «SFFE4 ' ; M.PBD bit 1 watch dog time: 

The" following defines the sampling rates 

/sampling rate cf 32 kHz 
; sampling rate cf 4 8 . kHz. 

;sampl"ing rate cf 14.4 kHz ■ 
''; sampling rate -of 14.4. JtHz . 
/sampling rate cf 16 kHz ' 
; sampling rate- of 24 kH2 . . . 

.•sampling rate, of .44.1 kHz 
: ;set the sampling rate. to 14.4 kHz. 

; The following defines various parameters 

• define' NUMPFFT. . • ■ '1024; ; number of" points used by the fft 

; The following define, the types of ™ skc "- - 
; ENDMSKR is not counted. in the nmaskers count . 

• nrTrrFOMSKR '0' ; the masker type of deleted. 

; The following define "a. tonal' structure. .- '. 
•This structure occupies both x an y memory (1;. 

,C:. SSS2 ''.SKSi : ^- ii^F" !1 ' ; ^ 
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• V ' '2* 




define 


SAM24K 


/ 3 ' 


; ! ! :26. 


,8 " 








define 


SAM441K 


'4' 


;! !!28. 


.8 




• 2 ; 




define 


" SAM7YPE : 


; ! I !2B 


.8 ' 
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the sync word. 



define SYNC ' 
define ' SYNCMSK 
define NSYNC. 



.14 



'SOOOfff' - ;sync pattern. left justifed 

•SOOOfff' ' ;tnask high order from getvalue 

'X2 f ;len sync word (hdr bits 0-11) 



For framing purposes by the decoder and unpadded frames. 24 bits are used: . 

■ rhf» ist 12 bits must be l's : , . ' 

, *£ nlxc 4 bits are the 1st 4 bits of. frame, header -of ; , . 

the constant 'C .(1100) ; • ■ j . - ' 

,: sk ip over the next 4 bits of the frame header that are reserved 

the next £ fbits ^Ol/oTthe frame header that represent sampling rate : 
'01'- 46 K sampling rate 
'10* 32 K" sampling rate V ; r 

!!!28 ' 8 : '00' » 24 X sampling rate (14:4 K rate) . . 

'00' - 16 K sampling rate. 114.4 ,K rate) 

• 11* '» 24..K sampling' rate . 
V '00\ « 16 k .sampling rate : 

1!!2B *iL r rnnstant 0 bits of the frame header. • 

The l^cSIfmusrcInro^to the right justified framing, sync pattern is used 



i to isolate the sync word. 



;!! 128,8 



; I ! !2B .,8 



define: FRAMESYNC_4BK 
. def ine FRAMESYNC_3 2 K . 

define. FRAMESYNC_24K 

define FRAMESYNC_24K 

define FRAMESYNC_16K 

define. FRAMESTOC_16K 



define FRAMENSYNC 
define FRAMES YNCMSK 
define GETS YNCMSK. 



'Sfffc04' . ; sync pattern for 48 K sampling 

'Sfffc08' ; sync pattern for 32 K sampling 

'SfffcOC . ; sync pattern for 24 K sampling, 

'SfffcOO' ; sync pattern - 14.4: K sampling 

'SfffcOO' ; sync pattern - 14.4 K sampling 

'SfffcOO' ; sync pattern for 16 K sampling 

. 24'' " : ;len sync word (hdr bits 0-23) 

'SffffOf - ;mask reflect framing sync ptn . 

'SOOOfff'.' \; mask' high order from getvalue 



, The following def ine the number of bits used by the; fixed part of the : . . 
• MUSICAM frame... 

/ define. NSYST . ' : of the system info. header 

def ine. the use of protection check sum or not 



• 0 ' 

' V 

• 16 ' 

'SOOffff ' 



define CRC_NO_PROTECT 

define CRC_PROTECT 

•define NCRCBITS ; 

define KASKCRC. 

define. CRC_SUM_BIT_OFFSET 

'define CRC VALUE " " '$800500' ; 

deline OTClSTORED.BITOFFSET '16< 



'16' 



/ protection does not, apply 
; protection applies 

; 16. bit check sum ; 
; mask high order from getvalue 

; i6thbit offset start at. bit rate 
. ; to calculate checksum 
; . checksum divisor 

; bit offset to store checksum 
following the 32 bit header . 



define the number ^ of bits to' be- included in the checksum 
° for the header and the checksum itself, 
for one channel. in mono : 



• BAD ORIGINAL & 
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define. CRC_B:TS_A 
define CRC_BITS_B 



'32' 
•142' 



incl bits from her fc checksum 
incl bits per used channel ; 
BALs - 88; SBiCS - 54 



code for the new ISO frame header (these are' coded as left justified) 



define . SYSTHDR 1 NO PROT' . *$00000d' 

define SYSTHDR~l~NO~PROT_LOW . 'SOOOOOS' 

define SYSTHDR~1 PROTECT .'S00000C 

define SYSTHDR~1~ PROTECT LOW $C 00004 ' 



bits 12-15: 
bits 12-15: 
bits- 12-15: 
bits 12-15: 



11C1 
.0101 
1100 
0100 



bits) 
bits/ 
bits) 
bits). 



define SYSTHDR_2 



'$000000* 



hdr bits 22-23: 00 



(2 bits) 



;use Copyright bit to indicate to decoder if CCS compression applies : 

1 : bit 28: 0 means NO CCS compression 

.; \ .1 means audio coded with. CCS compression 



define SYSTHDR 3 NO CCS COMPRESS 
define SYSTHDR~3~CCS_COMPRESS 



'$000000' 
'$000008'. 



bits 28-31:0000 (4?. 
bits 28-31:1000 .(4.} 



define 
define 
define 
define 
define 
define 



NSYSTHDR 1 
NSYSTKDR~2 
. NSYSTHDR~3 : 
MAS KS YSTHDR_T 
MASKS YSTHDR 2 
MASKSYSTHDR 3 



'4' 
'2* 
'4' 

'S00000f • 
' S000003' 

•sooooof ' 



; 4 bits for header field 1 
; 2 bits for header field 2. 
; 4 bits for header field 3 . 
.•mask high order from getvalue 
;tnask high, order from getvalue . : 
;mask high order from getvalue 



codes for the type of framing 12 bits in bits 24-;2S of frame header) 



define FULL STEREO . '$000000' 

define JOINT STEREO 'S000001V 

define DUAL ~ '$000002' 

define MONO . '$000003'. 

define . NFRAMETYPE '2' 

define MASKFRAKETYPE '$000003' 



00 stereo- left right channels 

01 stereo intensity- 2 channels 

10 dual-2 channels . 

11 mono-1 channel only. 

2 bits for type of frame field 



; 2 bits for type or trame riej 
;mafl)c high order from getvalue 

bit flags for controlling the type of ..framing during bit allocation t coding 



define 
define 
define 
define 


STEREO vs_MONO 
LEFT vs RIGHT T 
JOINT FRAMING 
. JOINT3«t_FULL 


,.'0V. 
*1' . 
•2' 
'3' 


define 


JOINT_at_SB_BOUND , 


'4' 


define 


FIRST_TIME .... 


'5' 


define 


MASKINGJPASS 




define 


HEAR ING_ PASS 


.'7' 


define 


FINAL_PASS,. 




define 
define 
; define 


" AT .LIMIT SUB BAND "\ 
AT~USED SUB BAND 
SUMMARY ALARM 


■ V'10' 
'16' 



;0 • 2 channels, 1 » one 
;0 - left channel, 1 « right 
; 0 - not JOINT. STEREO, .1 - yes 
;FULL. Stereo upgrade allocation 
; 1 » YES at full, 0 » joint 
;has stereo intensity sub - band . ; 
; boundary been reached: 

0 • NO, 1 - YES . 
;did loop thru allocation tests 
; make any new bit allocation;: 

0 • yes ,• 1 ■ no 
/allocate to masking threshold:. 
; 0-YES, . 1-no . (ALL are below) ' 
; alloc to threshold of hearing: 
,* 0-YES, 1-no (ALL are below: 
; allocate pass of what's left: 
; 0 - NO, 1 - YES ; 
.does NOT req at least 1 ailcc 
; above used- sub -band limit . 
;did any alarm get sensed 
■;' 0 - NO,' 1 « YES . 
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V. ; • . •• . ; \ : ' -16- v . .' " . ' 

define PROTECT '18* >r ; should checksum . (CRC16 ) • p~ctec 

. . ; 0 • NO," 1 « YES 

define MONO^OUT_CHANNEL , '19' •; output to only one channel:. 

~ " : - 0 • left, 1 - right ' .. "\ 

define. . M0N0_OUT_BOTH / .. '20' .," . ;output mono to. both channels: 

" ^ ; 0 « .NO only one, 1 » YES 

define LEFT_SINE_WAVE . \' '21* . ,;left channel music vs tone. . 

" ~ . v ; 0 • NO only "one, 1 - YES 

define RIGHT SINE WAVE : . . .'22' . ;right channel music vs tone 

~ ; 0 • . NO only one , 1 * YES 

define LOW^vs^HIGH^SAMPLING .'23/ ,-encode low or high sample rate 

■; -'; 0 ■ low, l - high 

.•decoding overload flag 

define ■ SKF_ZERO : " '3' . ; sensed a .?ero scale factor ' 

p ■ no » i ves ' 

; define bit position flags for decoding frames with the CRC-16 checksum 

define USE SAVED . '6' "! ; checksum failed use saved frame 

define FRAME SAVED . '7' ,a good frame was saved for use. 

define SAVE_FRAME '8' ; save this good frame for use 

define USING_SAVED .'9'.. ; this frame is the saved frame 

' define REFRAME '10.' . ;cnt bit errors exceeded, reframe 

'; define decoder auto selection flags for; 

; . bit rate (determined by trying to frame at each of the two 

bit rate choices) 
; type of audio data (MUSI CAM frames or G722) 

(determined by not being able to frame at either 
] of the two bit rate choices) 

; sampling rate (determined from a MUSICAM frame header) 

; (if NOT auto selected, some other switch sets the value) 

define AUTO- SELECT_BIT_RATE . '11'' ;0«NO, 1«YES 

define AUTOES ELECT DATAJTYPE '12' ;0-N0, 1-YES . 

define AUTO""SEL£CT~SAMPLE RATE '13' . ;0«NO, 1-YES . 

define MUSICAM vs G722 " '14' ;0-MUSICAM, 1-G722 

define S AMPLE_RATE_LOW_v s_H I GH 'IS' ... ;0«low, 1-high 

; this f lag indicates if CCS. compression applies to get data. asm 
define DECOMPRESS_PACKED '16' 

;this flag indicates that the framing process has previously determined 
; that the input data to the MICRO decoder is a stream of MUSICAM frames 

define MUSICAM_INPUT_SET '17? ; 0-NO , 1-YES 

/.';definef lag that the current frame has a sync. word violation 

, def ine NO_SYNC '< ' ■ V ' -. \ \ . ■ - : 21 ' ..• ••' 

-. ;define flag that determines which. ISO CRC-16 controls to, use : 

0 « OLD controls: seed with 0's and fixed span of bits covered 
■ l - NEW controls: seed with F' s and dynamic span over. the SBits 



define CRC OLD vs NEW 



'22' 
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; defme the sub- band allocation At Limit bit flags; that control; selection 



define MASKINC_LIMIT '0' 

define H£ARING_LIWIT ' 1' 

def ine ALLOCATE.LIMIT.- . ' 2 ' 

define. NOJU-LOCATE '3: 



-i reached sub- band's masking threshold- 
';1 reached sub-band's hearing threshold 
•1 reached sub -band; s max bit limit • 
il NO allocation at this sub -band 



define LIMITSUBBANDS.. '17' 



; sub-bands 0, thru 16 get at least 1 



w ~* .nrm^iva frames that a sub-band did not need any bits 
■;.^&a .SSK ^and from being .Uocaced , 

define FRAMELIMIT .. 
; codes for scereo- intensity subband 'bound >2.bi« 25-27 of frame header. 



define INTENSITY_4 
define INTENSITY^ 
define - INTENSITY_12 
define INTENSITY_16 



♦SO0OO0O' ; 00 subbands. 4-31 intensity mode 

•SOOOOOl' ;Q1 subbands. 8-31 intensity mode. 

'S000002' ; 10 subbands 12-31 intensity mode 

•S000003' 11 subbands 16-31 intensity mode 



* mctttmtcksity '2'. ; 2 bits for intensity boundary 

£1,5 ^J5J253nSm; ; 5OOOO03;. , ;mask high order, from getvalue 



stereo- intensity boundary sub-band counts 



define BOUND_4 

define. BOUND_8 ■■ . 

define BOUND_12 . 

define BOUND_16 

codes for output bit rates 



'4' . 
'8' 
'12' 
'16' 



0-3 full stereo, 4-31. intensity 
0-7 full stereo. 8-31 intensity. . 
0-11 full stereo. 12-31 intensity 
0-15 full stereo. 16-31 intensity 



(4 



bits, in positions 16-19 of frame .header). 



define . 

define 

define 



! ! 128.8 



define 
define, 
define 
define 



128.8 



define 
define 
define 
define 
define 
define 
. define 
define 
define 
define 



BITRATE FREE 
: BITRAT£_32 . 
BITRAT£_48 

BITRATE — 56 
BITRATE 64 
BITRATE 56 
BITRATE_64 

BITRATE_B0 
BITRATE" 9 6 
BITRATE2i.12 
BITRATE 128'. 
BITRATE_160 
BITRATE_1?2 
BITRATE_224. 
BITRATE_256 
BITRATE 320 
. BITRATE~384. 



'S00OOOO' 
•S000001' 
.'$000002' 

'$000003' 
'$000003' 
'$000003' 
' $000004' 

• $000005' 
'$000006' 
'$000007' 
'$000008/ 
'$000009' 
•$00000a* 
'$00000b' 
'$00000c' 
' SOOOOOd* 

rsoooooe' 



0000 9 unknown kbits/s 

0001 9 32 kbits/s 

0010 9 4 8. kbits/s 

0011 9 28.8 kbits/s 
0011 « 28 .8 kbits/s . 
0011 9 56 kbits/s . 
0100 • 64 kbits /s 



0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
.1101 
1110 



9 80 kbits/s. 

• 96 kbits/s 

• 112 kbits/s 
kbits/s 
kbits/s 
kbits/s ; 
kbits/s 
kbits/s 

9 320 kbits/s 
9 384 kbits/s 



4 128 
9 160 
9 192 
9 224 
9 256 



define ' EZTRATE_FREE_LOW 



' $000000' 



0000 9 unknown; kbits/s 
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aenne 
define 
define 
define 
define 
define 
define ; 
define 
. define 
define 
define 
define 
■define 
define 



BITRATE 

pITRATE" 

BITRATE" 

, BITRATE. 
BITRATE 

' BITRATE" 
BITRATE" 
BITRATE" 
BITRATE" 

: BITRATE 
.BITRATE^ 

•BITRATE 
BITRATE 
BITRATE 



8 LOW 
'l?_LOW 
24_L0W 
"32 LOW 
*4 0~LOW 
*4B~LOW, 
"56 LOW 
"6 4 ""LOW 
"80"LOW 
"96"LOW . 
"112 LOW 
"128"L0W 
"l44~L0W 
"16 0~ LOW 



define* N32TRATE" 
def ine ' MAS KNB ITRATE 



-18- 

• S000031' • 
.'S0000C2'. 
'$000003' 
' S00OO04' 
'S000005' ■ 
'$000006' 

•'sooooc*?: 
•soooooe* . 

.'$000009' 
• '■ $00000a" 
\S0OOOOb' 
• $00000c" 
• S00000d' 
' .'SOOOOOe' 

'4' 

•SOOOOOf ". 



0001. 8 kbits/s 

CC10 * If kbltS; S 
0C11 a 24 kblts/s. ; 

0100 « .32 kbits/s. 

0101 ® 40. kbits/s 
.0110* 48 kbits/s' . 

: Clll « 56 kbits/s . 

1000 • 64 Jcbits/s 

1001 » 8C kbits/s 
1010 © 96 kbits/s \ 

.. 1011 • 112 kbits/s 

1100 ® 128 kbits/s .. 

. 1101 » 144 kbits/s 

1110 e .160 kbits/s . 

; 4 bits for bit. rate code ir. hdr 
; mask high order from getvalue. ; 



codes for input sampling rate -;2 bits impositions 20-21 of /frame. heade: 



128. e 



define 
define 
define 
define 
define 
define 
define 



sample_::>_b:t_high .. r< 

•SAMPLINGRATE 16 'S00OO00' 
SAMPLINGRATE~24 'SOOOOOO'; 

■ SAMPLINGRATS~16 ' $000000 ' 
SAMPLINGRATE 48 * $000001' 
S AMPLINGRATE~3 2 i S 0 0 0 0 0 2 ' 
SAMPLINGRATE 24 .'$000003' 



00 9 14.4 
00 . ffi .14 .4 



kHz 
kHz 

00 ® 16 kHz 

01 ® 48 kHz 
32 kHz 
24 kHz 



10' 0 

11 .is 



! 128.8 



define 
define 

define 
define 



NSAMPLERATE 

MAS KNS AMPLERATE . 

NSBITS 
MAS KNS BITS 



' S000003 / . 



; 2 bits fcr sampling, rate m. hdr 
;mask high order from getvalue 



'2' • -; length of the scale factor select 
•$000003' .-mask high- order, from getvalue 



me fcllowing defines the masker structure. 
This structure occupies both x an y memory . <1> . 



define MASKERSSIZE # 3\ 

define MAS KERS FWRDB ' 0 ' 

define MAS KERS RDPWRDB '3' 

define MASKERSBIN 

define MASKERSBFREQ - . 

define. MASKERSTYPE '2' : 

define MASKERSCRITBND '2' 



fcr wa: 



-length of the structure 
.•offset to masker power f .l 
; and x. for dB) . . ; ; 

".-offset to reduced power ir..db.ty> 
'; offset to bin number ix> 
• ; offset to freq'in bark' (y) . • 
/offset to masker type . txr 
•offset to msker crital band if noise 



; highest number of critical bands, for all sampling rates, 
define . ' NUMMAXCRITBNDS . '26' 

.. 'if SAMTV?E»"SAM16K : ' ;.'V f >' . 



:'■ : 2 B . 8 



! : 128 . 8 



define ... MAXCRITBNDS 
endif - 



•21' .-number of critical bands 



if.. 5AMTYPE* * SAM2 4 K 



IB .8 
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define 
define 

3 

endif 



MAXCRITBNDS 
MAXCRITBNDS 



if SAMTYPE--SAM32K 
define MAXCRITBNDS 

-endif ' 

. if SAWTYPE--SAM4 8K 
def ine MAXCRITBNDS . 
endif 



• 21' 
'23' 



'..2'4? 



-19- 



.-numoer. cf critical bands : 
.-nutrber of critical bands , 



• 24 ' . ; number '.of critical bands 



;number of critical bands 



'.28.8 



I !28.8. 



define MAXCRITBNDS • 16 '21' 

define -MAXCRITBNDS 24 . ' 21 ' 

define MAXCRITBNDS_16 . '21' 

define MAXCRITBNDS_24 : '23' 

"define MAXCRITBNDS 32 '24' 

define MAXCRITBNDS^ 8 '24' 



.; number of critical bands at. 14 i 4 K 

•number of ; critical bands at 14.4 K 

,; number of ' critical, bands at 16. K. 

; number of critical bands at 24 K ' 

; number of critical bands at 32 K ^ 

: number of critical bands at .4 6 K. 



:The following defines the Aliasing, structure. 
This structure only occupies x or y memory. 



define ALIASSIZE '2* 
define ALIASBIN '0' 
define ALIASPWRDB ... '1' 



; length of the structure ■ , 
;bin number of aliaser . (0-511) 
; power of the aliaser in sib 



General things- 



define NUMSUBBANDS ,'32' , 

define NUMB LOCKS '3 ' 

define NUMPERBLK "" '3B4' . 

define NUMPERSUBBAND '12' .... 

define . SKF '6/ 

define MASKSKF v$00003f 

define SKFX2 ; . '€4' •• 

define BINSPERSUBBAND ' 16' . 

define NUM CHANNELS '2' ■ '.: . 

define NUMSNRPOSITXONS '18', • 

define NUMINDEXES - '16V 

' define MAXSUBBANDSJZCS ' 30* 

define MINSUBBANDS_CCS '.4',. 

define MAXSUBBANDS LO. .' 14 ' 



; number of sub-bands 

;number of blocks per super^frame 

; number of points per block. 

; number of points per sub-band 

; number of bits per scale factor 

.' ;mask. high order from getvalue 

: number of scale factors 

: number of FFT bins per subband 

; two channels: left and right 

,-lB Signal -to-Noise position- codes 

■16 position codes Allowed per sub -band 

; maximum sub- bands to ever be used 
; minimum sub- bands to ever be used 
; low bif rate max sub-bands ever used - 



•de'ine- the used subbands for- 64 and 56 KBits . . ■■ ■ 

!v Isampling rate / 2) - max Hz / by 32 sub-bands - Hz per sub- band 
; . . : based on sampling rate: , . 

. .. X4400 © 225 Hz per sub-band (14400/(2* 
. : 16000 « 250 Hz per sub-band . ( 16000/ (2* 
24000 * 375 Hz per sub-band i 24000/ t 2* 
32000 * 500 Hz per sub-band i32000/ (2* 
48000 « 750 Hz per sub-band (48000/(2* 
also based on bandwidth code, selection from a 
■■ : .oo • CCS standard J 
• : oi ■ 1 sub-band less than standard 
10 ■ 2 sub-bands less than standard 



32: NUMSUBBANDS 
32:NUMSUBBANDS 
32: NUMSUBBANDS 
32:NUMSUBBANDS 
32 : NUMSUBBANDS 
pair externa 



« 225!' 
« 250) . 

- 375) 

- 500) 
m 750 ; . 

switches : 
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• , ' .-20- : ■ ■ ' * 
11 * 3 sub* bands less tnar. standard 



128.8 



. define 
define 
define 
define 

define 
define 
define 
define 
■define 
define 
'define 
. define 



US EDSUBB ANDS 
USEDSUBBANDS* 
US EDSUB BANDS" 
USEDSUBBANDS" 

USEDSUBBANDS 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 

USEDSUBBANDS" 



CO 16 
01~16 
10~16 
11_16. 

00 16. 

oi"i6; 

10~16 
"ll~16 
00~16 
'01*16 
'l0~16 
11~16 



' 27.' 
'26' 
'25' 
'24' 

'30' 
'26' 
'22' 
'18' 
'22' 
'21' 
'20' 
'18' 



I !28.8 



6750 .Hz ©.16000 Hz sampling 
6500 Hz © 16000 Hz samplina- 
6250 Hz ® 16000 Hz sampling 
6000 Hz. ® 16000 Hz sampling': 

Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 



6750 
5850 
4950 
4050 
5500 
5250 
5000 
4500 



Hz © 
Hz ® 
Hz © 
Hz © 
Hz 9 
Hz © 



144 00 
14400 
14400 
14400 
16000 
16000 



Hz © 16000 
Hz © 16000 



!28.8 



define USEDSUBBANDS_00 24 '30' 
define USEDSUBBANDS_0O4 ' 26.' 
define USEDSUBBANDS 10_24 ':' 22 '> 
define USEDSUBBANDS~11 24 '18' 
define USEDSUBBANDS~00~24 .'27* 
define USEDSUBBANDS 01~24 '26' 
define USEDSUBBANDS~10~24. '25' 
define USEDSUBBANDS~11~24 '24', 



!26.8 



define USEDSUBBANDS_00_24 '18' 

de f ine USEDSUBBANDS_0 1_2 4 ' 1 6 ' 

define USEDSUBBANDS 10_24 '14': 

def ine . USEDSUBBANDS~11_24 '• 12 ' 

define USEDSUBBANDS_0 0 32 '20' 

define USEDSUBBANDS 01*32 '19' 

define. USEDSUBBANDS~10 32 '18' 

define USEDSUBBANDS^Ul 32 ' 17 ' 

define USEDSUBBANDS_00_4 8 . ' 11 ' 

define USEDSUBBANDS_01_48 '10' 

define USEDSUBBANDS 10 48 '9' ' 

de f ine . USEDSUBBANDS"! 1 4 8 ' 8 ' 



!28.B 



define INPCM 
define PCMSIZE . 
define PCMSIZE 
define . PCMSIZE 

if SAMTYPE ■ - S AMI € K 

define RATES 6 
define OUTM56 -.■ 
define OUTB5 6 

define RATE64 
define OUTM64 
define OUTB64 

define RATES 6 
define OUTM56 . ,. 
; define OUTB56 



'1152' 
'2560' 
'1152'- 
'2304' 



'0' 
'9€' 
'2304 r\ 

'0' . 
'96' 
'23 04' 

<0' 

'168' : 
'4032' 



6750 Hz ©14400 

5850 HZ © 14400 

.4950 HZ ® 14400- 

4050 Hz © 14400 

10125 Hz © 24.000 

9750 Hz © 24000 

. 9375'HZ © 24000 

9000 Hz © 24000 

6750 HZ. © 24000 

6000 Hz © 24000 

. 5250 Hz © 24000 

4500 Hz © 24000 

l'OOO'O Hz ©..32000 
' 9500 Hz © 32000 
9000 HZ © 32000 
8500 Hz.® 32000 

B250 Hz © 48000 
7500 Hz © 48000 
,6750 Hz © 48000 
60CO Hz © 48000 



Hz sampling 
Hz sampling 
Hz sampling. 
Hz sampling 
Hz sampling 
Hz sampling . 
Hz sampling 
Hz sampling 

Hz sampling 
Hz sampling 
.Hz sampling 
Hz sampling 

Hz sampling 
Hz sampling 
Hz sampling 
Hz sampling 

Hz sampling 
Hz sampling 
Hz sampling. 
Hz sampling 



; NUMPERBLK*NUMB LOCKS . 
; NUMPERBLK*NUMB LOCKS* 2*256 
;NUMPERBLK* NUMB LOCKS « ! ' dbg ! ! ! 
; NUMPERBLK*NUMBLOCKS * 2 ! 1 ! dbg ! 1 



;dip switch code for 28.8 Kbits 
;96 output, words (2304 bits) 
; .080 * 28800 . 

;dip switch code for 2e .8 Kbits 
;96 output words (2304 bits} 
; .080,.* 28800 . 

;dip switch code for. 56 Kbits 
;168k output words (4032 bits!. 
; .072 *. 56000 . 
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!28.8 



define. RATE64 
define CUTM64 ; 
define OUTB64 

3 

endif 

if SAMTYPE— SAM24K 



: ! ! 128.8 



define. 


RATES 6 . 




de f ine 


OUTMS6 . 


•96' 


define 


OUTB56 


. '2304'. 


define 


RATES 4 


'0' 


define 


OUTM64 -'■ 


'96' 


define 


OUTB64 


'2304', 


define 


RATES 6' 


'0' ." 


define 


OUTM56 • 


'"■■/• '112'' 


define 


. OUTB56 


.. . '2688' 


define 


RATE 6 4 


'.'■I* • : - 


define 


OUTM64 


*128' 


define 


OUTB64 . 


'3072' 



! ! !28.8 



.endif 

if SAKTYPE--SAM32K\ 
define RATES 6 . 
define OUTM56 . . 
define 0UTB56 . 

define- RATE64. 
define OUTM64 
define 00TB6 4 
• endif • 

if SAMTYPE— SAM4 8K ; 
define RATES 6 . 
define OUTM56 
define -OUTB56 

define RATE64 
define 0UTM64 
define OUTB64 
endif •' ' 

define RATEJL.0 ' 
define RATE_HI . . 



' ;dip switch code for '64 Kbits 

•192' ;192k output words (4608 bits; 
'4608' ;.072 * 64000 



;dip switch code . for 28.8 Kbits 
;96 output words (2304 bits)' 
; . 080r * .28800 . - . 

•dip switch code for 28.8 Kbits 
; 96 output words (2304 bits)-. 
; . 080 * 28800 . . - ' , 

. ;dip switch code- for 56 Kbits ... 

;112k output words (268B bits) 
. .048' * 56000, ' . 

;dip switch code for 64 Kbits* 
;128k output words .(3072 bits). 
; .048 * 640C0 



'0' ; dip switch code for 56 Kbits 

'84' ;84k output words 12016 bits). 

'2016' : ; .036 ♦ 56000 . 

'1', ; dip switch, code for .64 Kbits 

'96' ; 96k output words (2304 bits) 

'2304' ; .036 * 64000 ../ 



*0 ; ;dip switch code for 56 Kbits 

'56' ;56k output words (1344 bits) 

'.1344.' . ; .024 * .64000 ■- 

'1' . : ; dip switch code : for 64 Kbits 

•64' ;64k output words (1536 bits) 

<1536' ; .024 * 64000 



' o' ■ ;dip switch code for lower Kbit rate : 
'1> ;dip. switch, code, for higher. Kbit rate 



'; - define framing bit rate values for sampling at 16 K 



; ! ! 128.8 



define ODTM32 16 
define OUTB32 16- 
define OUTM48_l 6 
define OUTB48_16 



define. OUTMS6 16 
define OUTBS6~16.. 
define OUTM64 16: 



'96' ;96k output words (2304 bits) 

'2304' ;. 072 *. 32000 

'144' ;144k output words (3456 bits) 
'3456' . .072 .* 48000 " . 

'96' ;9S output words (2304 bits) 

'2304' ';. 080 * 28800 • - 

'96' ; 96 output words (2304 bits). 
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define CUTS 5 4 _i 6" 
define CUTM5€_1S 
define OUTB56_16. 
define OUTM64_16 
define OUTB64_16 



• 2304' * ;'.080 * 28800 ' 

'168' . ;168k output words- (4032 bits) 

''4032' ;. 072 * 56000 . 

'192' : ; 192k output' words (46GB bits) 

'4608' ;.C72 * 64000 " 



! : :28.8 

define/framing bit rate values for sampling at.24 K 



128.8 



define OUTM32_24 
define 0UTB32_24 
define 0UTM4 8_24 , 
define OUTB48_24 

define OUTM56_24 
define OOTB56_24 
define 0UTM64_24 
define. OUTB64_24 
define 0OTM56_24 
define OUTB56_24 
define OUTM64 24 
define :0UTB64_24 



'64' ; ' ;64k output words (1536 bits) . 
'1536' ; .048 * 32000; 
'96' . ;96k output, words 12304 bits). 
'2304'. \;.048 * 48000.- 

'96' ;96 output words/ (2304 bits) 
*23C4.* ;.080 ♦ 28800 
'96' ' '.■ ;96 output words (2304 bits). 
'2304^ ;.080 * 28800 
'112' .-; 112k output words (2688 bits) 
•2688'. ;.048 * 56000 
■ '128' ; ;128k output words" (3072 bits) 
'3072' ;.048 * 64000; 



! ! !28 . 8. - 
define framing bit rate values for samplingat 32 X 



define OUTM32_32 
define OCTB32_32 
define OOTM48_32 
define- OUTB4 8_3 2 
define: OUTM56_32 
. define OUTB56J32 
■ define OUTM64_32 
define OUTB64_32 



'48' ; 4 8k output words (1152 bits) 

.'1152' ; .036 * 32000 

'72' ;72k output words. (1728 bits) 

'1728' ; .036 ♦ 48000 

'84' ;84k output words (2016 bits) 

'2016' ;.036 * 56000 

'96' ; 96k output words (2304 bits) 
'2304' ; ; .036 * 64000 



define framing -bit rate values for, sampling at 48 



define CUTM32_48 
define OUTB32 48 
define OUTM48_48 ; 
define OUTB48 48 
define. OUTM56_48 
define OUTB56_48. 
define OUTM64_48 
define OUTB64_48 



• 32 ' ; 32k output words ( 76 8 . bits) 

•768' ; .024 * 320O0 

'48* ;48k output words (1152 bits) 

' 1152' . ; . 024 * 48000- 

'56* - ;56k output words (1344 bits). 

'1344' ;.024 * 64000 • 

'64' ;.64k output words, (1536 bits) 

'1536' ;.024 * 64000 



highest number of freqs used for coding for all sampling rates ; 

define MAXNMSKFREQS . ;132'. •• 
.number of freqs. used : for ; coding' based on defined sampling rates 
if . SAMTYPE— SAM16K 



128.8 
!28.8 



define NMSKFREQS 



'132' V ; number. of freqs used for. coding 



! I 123 .8 



endif . \ 

if SAMTYPE--SAM24K 
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def ine'" NMSKFREQS . 

:28.e 

- ' . ■ endif . 

, if SAMTYPE--SAM32K 
define- NMSKFREQS ■ . * 
endif "': 

if SAMTYPE--SAM48K 
define NMSKFREQS. 
. ;. endif.- >■..'. 

!28.8 . • • 

define . NMSKFREQS_16 
define NMSKFREQS 24 
define NMSKFREQS_1€ 
define NMSKFREQS_24 

!28.8 

define NMSKFREQS_32 
- define NMSKFREQS_4 8 



r 132' 



'.132' 



•126' 



'132' 
'132' 
•132' 
•132' 

•132' 

•126'; 



•23- •/.• 

;.numb'er .of freqs used f: 



coding 



.•number of freqs. used for coding 
number of freqs used for coding: 



,-num. freqs used for coding at; 14.4 K 
■;num freqs used for coding at 14.4 K 
;num freqs used for coding at 16 K 
;num freqs used' for coding a t; 24 K 

;hum freqs used for coding ac .32 K , 
; num. freqs used. fcf coding at 48 K 



the following indicates if CCS compression for. positions i: 1 , 2 and 3 



define COMPRESS 
define COMPRESS 



•0". ;0 . indicates no" CCS compression 
'1' ;1 indicates use. CCS compression 



define uncompressed getdatat) getvalue masks for unpack: 
.. upack3, upackS and upack9 



define MASKUPACK3 
define MASKUPACK5 
define MASKUPACK9 



'SOOOOlf. ; 5 bit getvalue retrieved 
''SO0007f ; 7 bit getvalue retrieved 
•S0003ff ; 10 bit getvalue retrieved 



define CCS compress: getdata ( )•' getvalue masks for unpack : 
upack3, upackS, upackS and upack9 



define MASKUPACK3X 

define MASKUPACK5X 

define MASKUPACK8X 

define MASKUPACK9X 



•SOOOOOf ' 
' S00003f * 
'SOOOOf f ' 
' SO003ff ' 



needed by the decoder rdecode program 

. define NOOF * 5 ' 
define NSBUFS '4' < 

define MAXJTRIES. ;■ . '10'. 

needed by. the decoder rsynth program' 



define OUTBUF 

define OUTBUF 

define OUTBUF - 

: define OUTBUF 

needed by ail 

:def ine NPERGROUP 



"-'512' ;■ 

'768' 

U024' 

'1152' 



4 bit getvalue retrieved 
6 bit getvalue retrieved 
8 bit getvalue retrieved 
10. bit. getvalue . retrieved 



,-number ;of out of frames 

.-number of sync buffers 

; restart after framing tries. 



;size of the output buffer, 

;size of the output buffer 

; size-, of the output buffer 

; size of the output buffer 



./number of samples per processing grp. 



This constant is used by xpsycho inly, to set to. of f set used to account, 
"for the phase "locked loop (PLL) jitter. 
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define. PL.LCFSST 



'32' 



. . . number of samples : ; cf cf f s*- 



def i 



ne -he methods of ope rat ion" carolled by external switches 
normal operation vs various dignostic -operations . 



define 
define 
define 
define 
define 
define 
define 
define 



; defi: 



NORMAL OPER . 
LEFT lOOOhz 
RIGHT lOOOhZ . 
. BOTH lOOOhz 
MEMORY TEST 
LEFT_100CChz ;. 
RIGHT lOOGOhZ; 
BCTH lOOOOnz , 



'S00000C ; 000 normal opearior/ 

'SOOOOCl' "V .CC1 1000 .Hz /tone : left ;.. mute right* 

'$000002* : ; .010 1000 H2 tone, right . r^-ite left 

• 5000003 ' ; 011 '.1000 Hz .tone . to both channels 

'S000004- ; 100 perform memory ' tests 

'S000005' ; 101 '10000 Hz' tone. left , mute right 

'S000006' ; 110 10000' Hz tone right,, mute left 

'S0GQ007' . ; 111 10000 Hz tone to . both channels 

■msecs) 



.e ancillary data baud rates and byte counts per . frame time pence 



def ihe'BAUD30C ■ 
define BYTES300 
' define M_SCCR3CC 

define BAUD1200 
define BYTES 1200 . 
define M_SCCR120C . 

• define BAUD240Q : 
define BYTES 2 4 00 
define M_SCCR2400 ■ 

define BAUD3 60C 
define BYTES3600 
define M_SCCR36jO 

def ine BAUD4800 
■define BYTES48QC, 
define M_SCCR4800 

define BAUD" 20 C 
define BYTES7200 
. define M_SCCR7200 

■ define BAUD9600 . 
define BYTES9600 - 
define K_SCCR96 00 

define BAUD192O0 . 
■ define- BYTES19200 
def me M^SCCRi 9200 

define BAUE7200 • 
. define BYTES 72 00 
define M SCCR720C 



'0'. 
•1' ■ 
'S57d' 

'1' " : 
•4* 

'SlSf ' 

' 2 ' 
'8' 

'$a£ V 

•3' 

-11' 

.'$74' 

' 4 ' 

'15' 

'S57' 

!'5' 
*22' 
'S3a'. 

'6* ' " 
'29' 
'S2b' 

*7V 

'58' 

'S15' 

' S 1 

116 1 
'$a* 



define BAUD KMART_DCD 8 
define BYTElKMART_42187 '127 
def ine M KMART_42187 . $9 



define MSCR_CD 
define M~SCR_DC: 



' so?: 
'S121 



;dip switch. code for' 300 baud ; 
;1 byte '.7.2 bits — > 8- bits/ . 
•set clock for 30C baud "rate ". 

.-'dip switch code for 1200 baud 
;4 bytes 128.8 bits «-> 32 bits). 
] set clock for 1200 baud rate 

;dip switch code for 2400 baud. 
; 8 bytes (57.6 bits »-> 64' bits; 
; set clock. for 2400 baud rate.. 

; dip- switch code for 3600 baud 
•11 bytes (86.4 bits .«> 86 bits. -. 
iset clock for 3600 baud rate 

■dip switch code for 4 80C baud 

!*15 bytes (115.2 bits «-> 12C cits? 

; .set clock for 4800 baud rate 

. • dip switch code for 7200 baud 
•22 bytes ;i72.B bits «-» 176..cits> 
; set clock for 72:c baud rate 

•dip switch code fcr 960C baud 

';29 bytes (230.4 bits «-> 232 hits- 

; set clock for 96GC baud rate 

; dip switch code for 1920C baud _ 
•58 bytes (460.8 bits — > 464 bits).. 
; set clock' for 19200 baud' rate 

'•dip switch code fcr 3840: baud 
■116 bytes (921.6 bits— > 928 oitSj 
Iset clock for 384 CO baud rate 

,-code forced by box_cti 

• *27 bytes ',1012.. 5 bits «^' fl - ts 

'; set clock for 42167.5 baud rate 

- "..-enable re k rei for encoder , 
.•enable te £> tei for decoder 
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/' ■ ■ • . ■ ' -25- : • . /' ; ;. - \ ■ ' . 

define EATABUFLEN . . '512* ; ancillary daua inpuc buffer ler.a-r. 

define 3ITSPERBY7E " '8' _ ..ancillary data m* 8 -hi- "cytes 

def ine B I TSFOR? ADDING . _'3: ' .-framed bit ccunt for pad byte csur.: 
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ic": 1995. Copyright Corporate Computer Systems; . Inc.. All .rights, reserved. . 
\DGCS7\box_ctl -asm ; - : 

This file contains the 'definitions for the .control . variables for . ' 
running , the encoder and decoder fcr : 

• *• Digicast Mini Codec version cf CCS CDQ1000: 

sampling rate is 14.400 K - 225 Hz per sub-band icoded as 16 K samplings 

bit rate is 28.8 KBi.ts per sec (coded as the low sampling rate; . 
- the frame header, is coded as 'fffcOO' 

Pert B for the encoder and decoder is. defined as a host port . 

encoder has its own phase lock : detected oh pel of Port C 

decoder phase .lock is- detected onpcO.cf Port C. ■-. 
| - . ancillary-' data is NOT APPLICABLE \. 

.•define the" bits required for' Reed Solomon error, correction 

define REED_S0L0MCN_3ITS . '24C ;8 bits - 30 Reed Solomon bytes 

■define, the choice pairs cf input PCM sampling rates to make available 



!28.8 



.! ! !2e .8 



define SAMPLE 16K_AND_24K . . , '0' 

define SAMPLE~16K_AND_24K /°' 

define SAMPLE 16K AND_32K' ' 1" 

define- SAMPLE~16K AND_48K. . '2' 

define . SAMPLE~24K AND_32K *3' 

define SAMPLE~24K AND 48K '4' 

define ..SAMPLE 32K AND 48K .'5'. 



; choice of 14400 or 14400.. 

,-choice of 16000 or 24000" 

•choice. of 16000- or 32000' 1 

;choice Of 16000 or 48000 

; choice of 24 000. or 32000 

;choice of 240C0 or 4B00C 

.•choice of 32000 or "48000 



.•define the selected pair of input PCM sampling rates to make available 



define SAMPLE_RAT£_?AIR 

: : 128.8 



• 0' 



; 144.0 C and 14400 sample rates 



:23 .8. 
128:8. 



if SAMPI£JIATE_PAIR»«SAMP1Z_16KJ*ND_24K 



define 
define 
define 
define 
define, 
define 
define 
. define 
define 
define 
define 
define 



LOW_SAMPLE_RATE. 
HIGH SAMPLE RATE . 
FRAMESYNC LO 
FRAMESYNC HI 
LOW SAMPLE RATE_CCS 
KI GH_SAMPLE RATE_CCS 
FRAMESYNC LO CCS . 
FRAMES YNC~HI_CCS 
LOW SAMPLE_RATE ISC 
HIGH_SAMFLE_RATE_I SC. 
FRAMESYNC LO ISO 
FRAMES YNC~hO SO ; 

' endif • . 



'5000000' 
'$000000' 
.'SfffcOO' 
'SfffcOO' 
' 'S0OCO0O' 

* S0O0O0O' 
•SfffcOC 
•SfffcOO' 
'S0O000O' 

* S0OO00O' 
•SfffcOC 

. ' Sf f fcOO* 



; !.! 128.8 , 

;:::28.8 

•define the framing max tries . fcr. MUSI CAM . 
. ' define VSRIFY_TR1ES ' *.. '5' 



00- 
00 

fr 

■ 00. 
00 

fr 



1 00 ® 14.4 KHZ . 

CO « 14 .4 KHZ 
.fr sync patter: 

fr sync patter: 
« 14 .4 (16) KHZ 
$ 14 .4 (16* KHz 
sync old CCS 14 
sync old CCS 14 
d 14.4.(16; KHz 
* 14 .4 (24V KHz 
sync MPEG- ISC 1 
sync MPEG- ISC. I 



14 

14. 



.4K'.: 
.4K.:: 



4K 
4K 



.4K. 
.4Ki 



24 r 



; verify found rates 
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; ,• ; .- * .... • " -27 - . ■;• . .. 

de £ ; ne * MAX BOOT TRIES ' - * 40 '•' , 56 seconds ' 

define MAX~AVTO~TRIES .. • '80', ;£or 1.S2 seconas • 

;defme the. power up wait times before 'going . into processing/. 

■ de'ine XCODE STARTUP ■ ■ " ; 130C ' I second .." ■ ■ ; - ;" 

.-define . RDCDSYNT_STARTUP •//• ./ .'1000* , ;1; second . 

.define che memory layouts f cr. any. -diagnostic memory testing: • - - ; . 

; decoder memory layout : 

' define' STARTUP MEMORY_DO . .-" '1024' 
define END P MEMORY DCD " '2048 , 

define' STAR7~X_MEMCRY_DCD ■ - - 

■ define ' ETO_X"MEM0RY_DCD • ,'5 : 20 

define START"y MEMORY.DCD -:. • ■M28'--. 
define END_Y~MEMORY_DCD — .■ • ' 1536' • , 

define WA7CK.D0GJTEST_DCD : /. . ' 20' . \; 20 millisecs for watch' dog ..^ 

(fl ^, ne r he encoder /decoder overload scale factor code a scale facter . . 

;! !ower zhln this value is considered an overload. .condition 

define : OVERLOAD_SKF • . '5; .• 
^'ino the -on-rols to reframe if an excessive error condition persists 

A~ frequency coult of frames out- of- frame or oofs- ino sync pattern! . 
' Id a^reoiency count of checksum bit errors. are maintained. . .. • 
' Vcr eve^ad precondition, the appropriate counter is incremented at, 

I B;: stosls S^L^ Hi^si 

. , the counter when an error ,s sensed to ^Vcounterlo' reach the reframe 
\Vj£tSS^S^ Srsistant StUrn ot aUemating or. nearly altering, 
good frames and bad frames. 

\ x- ~rvnn nprpPMEMT ' l ' ;good' frame decrement value . ■ 

• oeitnl : SSiSSlxhII . /> icRClS.checxsux tit-errcr tolerance , 

: -ber. 3/8/94 (start) : G722 modiii.cat.ion for K221 . 
j Hand shake definition ,(PBD) 

■ ae - ine - ^ ■■r..-.'#10'. • mput 



define 

define ABIT 



#12'.' " ■ ;PB12 "input 



• define / HSTTF , '#13' / ;?B13.. output- . •; . : . 

;' tx- flag definition V; 

' -~ r-f *r '*/V :*0 bit of x: flag-. 

;ber. 3/8/94 (end) : G722 modification for H221 

: ber. 3 '21/95:' decoder Reed Solomon address parameters. . ' 
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define 
.define 
define 
define 
define 
define 
define 
define 
" define, 
define. 



RSRegl 

RSReg2' 

RSReg3 

RSReg4 

RSRegS 

RSRegS 

RSReg7 

RSRegS 

RSIN - 

RSOUT . 



"S8ff8' 
'$8ff9' 
'SBffa'. 
:S8ffb' : 
'$8ffC 
'S8ffd' 
'$8ffe' 
• $8f ff ' 
'SfffS' 
'Seff 8*. 



•28 



; define PORT C initializations 

encoder FORT C Assignments . 

; s - ssi port . 

; i » input port ... 

;" ■ output- port - -"■ 



: pco 
pel 

' pc2. 
P<=3 



; pc4 
; pc5 
; pc6 
; pc7 



■ 7 6. 5 A- 
s. s s i' 

'•. e" 



- 3 2 1 0 

s - b. i o 

• 8 ' . 



eclksel to) 
eld' (iT 
rstrs (o) 
ebclk . (si) 



elrclk (i) ; 
ewclk (si) 
eclk ■■"(■si) 
esrdata (si) 



0101 • 5 • 

;select clock for Reed Solomon. 
; phase lock detect <G -not locked. 
; reset Reed Solomon 
;bit clock. ■ 



1-locked) 



pcS • etdata (so) 



oooo « o- 

; input pem samples left /right clock 

; transmit word clock; 

; input samples word clock 

; input audio pern sample data 

0000 - 0 

; output MUSI CAM frame data 



define . XCODE PORT C M PCC 
- define XCODE~PORT~C_M_PCD . 
define XCODE~PORT~C_M_PCDDR 

decoder PORT C Assignments : 

■*s- ; » ssi port 
. i « input port 
•o. ■ output port 



'movep *>$01e8,x:<<$FFEl' 
. 'movep ,.#>$0004,x:<<$FFE5' 
'movep It >$0005 ,x:<<SFFZ3 1 



8 - 

s- . 



7 6 5.4 
s s i s 
d 



3 2 1 
s o o 

.'■ 8 



'0110. 

pco - did (i ; ' 
pel - . fclksel (oi 
pc2 - darst (o) 
pc3 • dclk (si) 



0000 



pc4. «; dwclk . (si) 



; phase lock detect (0-noc locked, '1- locked! 
; select clock for Reed Solomon 
;d-to-a reset line (0 -mute, 1 ■ audio) / 
; receive input frame data stream clock 



.; transmit dac output audio word clock 
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; pes dlrrlk \i.- . ■ ; transmit dac audio cur pur left/right deck 

; pc6" » dbclk :si '* ■ ; decoder bit .clock 

; pcf » drdataisi/ ; receive input music am frame data, ' 

\ • ■ 0000 - 0 ." • - *" < ' ..V ' 

; pc8 » dsdata (so) .-transmit audio, data output tc . dac , 

-"define RDECODE PORT C M PCC . *mbvec #>SCld8 ,x:e<SFFEl 
'define RDECODE2PORT~C~M~PO 'movep . t>S 0002 , x:<<SFFE5 v ' 
define RD£CODE_PORT~C~M~PCDDR 'movep . #>S0006 , x : c<SFFE3 ' 

;define PORT B initializations * 

-.encoder PORT 3, Assignments , 

;.!!!Ncte: for'Digicast pert* 3 is- a host port . 
' . That means .the following definitions, are -not applicable;' 

; ; ; ; 14-' 13-" 12 - 11 10' 9 5;.- "7 € ■ 5 4 ' - 3 2 1 C ■ ' " 

; ; ; ; 14" 13 12 11 1 0 9 8. - 7 6 S 4 - 3 2 1 .C" ... 

;;;; i i .■ i ■ o i i o .oooo o c i i- *V'MUSiCA M . ♦• 

-i c i ' • o i-' i o. . o. o c o ■ . o c ' i i . ". £722 

;;;;;; i o i o i i o . 0 c o c . i o i . i' ** • G722 **"' 

' '. ' .'1100 ■ C "•.■**'. MUSICAM **. 

' . - 0100 « 4 ' . .** G722 ..**'/•'"':'-.•• V 
' ; ; ; ; pbO » lb (i) - ; loop back ' " 

;;;; pfcl » bitrate (i! frame bit rate (0«low, i-high) 
;;;; pb2 » coding (o) ; type of data input (0-MDSICAM, l»G722i 
;; ;; pb3 « samprate . (o) ; PCM sampling rate (0-low, 1-highJ *• MUSICAL *;*■■ 
pb3 . - samprate (i: ; KSFTT flag for H221 . .... **..G722 

■ 1111 - f ■ ' : ■ l 

;;;; pb4 - emus (o). ; encoder MUSICAM led i0«cff, 1-lit:- 

;;;; pb5 « eovrld (c) .; input pem overload led.(0»off. l«lir alarm* 

;;;; pbS • e24k. (o) . ; encoder phase lock loop led .!0«cff, 1-lit:. 

; pb~* « wd2 ioV ;. watch dog timer . 

; ; ; ; ' 1001 ■ ■ 9. • / 

;;;; pb6 - cal io) ; analog- to -digital converter reset (0«nbrmal ( l«reset 

pb9 - e0 " ; ' CO flag for H221 . " ** G722 

pblO - el -lii ' C2 flag for H221- .. ■♦•;G722 * * 

" ; ; ; pfcll;. ■ eralS (o) v . r'must be set to-1 .■ . 

\\\\ . OCO • 0 ** MUSICAM **'•- 

' ' 1 010- 2 - ** G722 *♦ . ' • 

pbl 2 ■ /, e3 : U)- ' " : ' ' ; ABIT flag for H221 "... >-*'G722>* 
pfc!3 • e*2 ii) ■ : ; NOT USED - • " MUSICAM 
;;;;'pt!3 • e2 io) ■; HSTTF flag for ..K221 •* G722 

pb!4 • e4 lii" . •■- ; ; . NOT USED * * MUS I CAM * * . . 

" . ; HSFTT flag for'H221 : ; ■■: •* G722 ** . 

;;;;;;■ pbl4 » e4 Vi) ; auto status of decoder: 0 go to low* samclmg/MUSICA^ 

.'1 follow above pir.S . 

i :"iNote : ' for. Digicast port B is a host port ..■ 

That means the previos definitions, are. not applicable . 

;• define port -*B as a. host pert. "/. 

define'. XCODE "PORT_B_M_PBC • 'movep; «>S00C1 . x : <<SFFE0.' ■ 
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; set data, sc that baralS. (bit. 11; is 1 

define XCCDE_PORT_B_M_PBD 

;set;bit direction (output * 1 or- mpuc 

y. : ' MUSICAM' ** " 

.'.-..define XCODE_?ORT_B_M_PBDDR 
; 1 ' G722 ** ~ 

;■' define XADPCM_PORT_B_M_PBDDR . . 

; decoder PORT B Assignments 



; i 1 iDigicastmpvep *>S0BCC ; x : <<SFFE4 

0) • " " ' . ' ' ; " * ' /' 

; ! I :Digi cast move p . »>SC9fc.x: <<SFFE2* 
; ! !-:Digicastmovep *>S29f c. x : <e5r?E2 * 



:Note : fcr Digicast port B is a host port - 

1 .That -means .the following definitions/are' not applicable.. 



14' 13 'l2 - 11 10-/9 8-7 € 5 4 - 3. 2- 1 C". 
' o c c' o o. o o o i o c o o o. i'. 
' c ' i c" " c o o o o i o o ■ o o o i 



'MUSICAM 
** G722 ** 



)';';] ■ - HID - C \ \- - . . ' / • 

obG « IHd t 1 > ;????? 

;;;; pbl » titrate io) ; determined framing bit rate (0- low. l-highi 

;;;) pb2 - « rcoding (ol ; type of data to decode r0«MUSICAM. l»G722)- ; 

pb3 « rsamprate to) ; determined sampling rate. f 0»low....lohigh i 
'}';';];; ■ > ; HSFTT f lag f or H22 1 G722 ** 



pb4 « N/C. (o> 

pb£ « N/C to) 

pb6 = Id- i i r 

pb~ ■ * wdl ' !e:* 



1011 « b . 
NO. CONNECT ' 
NO CONNECT 

phase lock loop detect iO-not locked, .1 -locked i 
watch dog timer 



pb8 i :dars 
" pb9 «. eC to. 
pblO « el to) 
phll » decralS 



pb!2 » e3 io). 

pb!3 «. e2- to) 

' pbl3' • e2 \U>. 

pfc!4 « e4 io.? 



(c: 



to) 



. nil" - f : -■ 
digital-to-analog reset ti«normal 
CO flag for H221 . 
C2 flag for H221 
boot top <1>. cr bottom (0 ; ; 



C-reset : 
0722 * 
>* G722 « 



pbl f." 



e4 vo! 



. .. . . ill . f *♦ MUSICAM ** 
101 • d - ** G722 *• 
ABIT flag for H221 : 
NOT USED 

HSTTF. flag for. H221 
NOT USED 

HSFTT flag fcr K221 

auto status: - 0 NOT f ramed-encode low sampling /MUSICAM 
1 - FRAMED : •' ■ .•' .•' 



*• G722 "•* 
** MUSICAM 
•* G722 •* 
"•* MUSICAM 
G722 ' 



; rdcdsynt 



!Note: fcr Digicast pert B is a 'host port/'.- ■ ■ 

. . That means the. previos. definitions. are, not applicable; 



•define pert B as a host port 

define'' RDECCDE_?ORT_B_M_PBC 



'move? ■ . «>SC0C1 ,x:<<SFFE0 ' 
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• : . : -.-V " .-■ . ' ' -31- ; .- . ^ • •■ : \r'~ • ' ' : : 

.set data so that' baralS !bit 11> is *1 - : , 

define RDECODE_PORT_B_M_PBD . ' ; ! ■! ! Digicastmovep *>S0800.x:<<$FFE4* 

■ ■ MUSI CAM •* " ■■ 

define RDECODE_PORT_B_M_PBDDR ' -' ; !.i IDigi.castmovep . «>Sf fbe . x : <<SFFE2 * 

. G722 *♦ - • " " ■ ' • 

define FRADPCM_PORT_ B_M_PBDDR V; : ! ! Digi cast movep. *>Sdfbe .x : <<SFFE2 • 

;defihe ssi port "initialization for. encoder and decoder 

define XCODE SSI M CRA . 'movep . *>S6000 ,x: «SFFEC . 

• ■ define XCODE^SSI jTCRB \ 'movep • «>Sf 010,x: <<SFFED' 

■ define . RDECODE SSI M_CRA . 'movep *>$600C , x: <<SFFEC\ 
.define. RDECODE* SSI^M.CRB ... /movep ft>$f 008 . x: «SFFED' ' ' ■ 

;define sci port initialization for : encoder and decoder 

def ine XCODE" SCI_M SCR - '.• /movep'. *>$0002 ,x: <<SFFF0 • • 

define RDECODE_SCI~M_SCR . 'movep . #>S0 002 , x : <<$FFF0 ' 

;define the setting dspS€0C2 clock (PLL Control Register) 

8MHz crystal to. run a 4 0 MHz. IS times 8. so code a 4 belowi 

define ^CODE M PCTL 'movep. *>S050004 ,x:<<SFFFD* 

define" RDECODE~M_ECTL • ' ' . . "movep «>S050004 .x:<<SFFFD' . 



• ENCODER hardware settings for leds and line's 

.•control the encoder devices: 

• tested inputs of: . 

; • host vector 24. ... 
provides hardware and encoding parameters: none yet 

• host vector 2A V . 

psycho table parameter id (0 - lit . 

. hcs. cable parameter value for is frorr. host vectcr 26 , 

'! ;. • y: <<$FFFF • ., ■ • 

BRAD encode select data type ; / • : /' bit 0 ^-^f^',^ 7 ^ 

^ L^^l^ s^ g ^, -bit sws /i 

'.^M^nc- Ssed . ;;bit..S (0-low. 1-high) sw6 . .... ^ 

•.:'i 0 encoder band width code , . . bit . 8 ,.(0-C l-l)sw .1 pack .pane. 

' high bi- encoder band width code . bit TlO-C, 1-1) sw 2- pack panel 

- h»ud rite code ^ow order bit . " : bit.10 iO-C. 1-1) sw 3 oacx panel. 

; baud rate code -ow ■ 'bit 11 ' <0-0, 1«1) sw 4 back panel-. 

; baud rate code middle bit . 71 - - . v e ^a^*- 

r *r _ , k -„u _ -j^- w«r - . .. ■• bit 12 0 ■ 0 , x«l) sw 5 bacK pane- 



• 1 ' :Note: for Digicast port B is a host port 



cor yiMiuciti w pw*w •* *- — ----- .« . 

That means the following definitions are not applicable. 
M PBD <X:<<SFFE4) 
pbl - bitrate (i) bit 1 frame bit rate (0«low l«high) - 
pb9.- eC. tii . ..bit .;9,C0 flag for H221 - G722. . . 
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;.' .• v., .. . ■ -32- . • /' ' :•' '. •';;'•;: 

■ ; ztlj el :i= bit .1C C2. flag for. H221 *• 3722 - 
■; ztll • e3 -i^ ' bit 12 ABIT flag for K221 ** G722 •* > 

; pb!3 - e2 Ci) bit 13 NOT USED ■ "*• MUSICAM 

* pb!4. - e4.(i), bit 14 HSFFT flag for H221 ** G722 ** • 

.'; set' outputs of: . - 
;::!Note: for Digicast port B is a host port. 
• " .That means the following definitions are not applicable.'..'.-; 

'.; • • ■■ M_PBD (x:c«SFFE4: ■ 

r. ; pb2 • coding .io> . bit 2 type of data input (0-MUS1CAM. 1-3722; 
; pb3 - .satnprate (o> bit 3 PCM sampling rate (0 -low. 1 -high? . 
. ;pb4 - emus tot bit 4 MUSICAM encoding led (0«off, 1-lit alarm;* 

pb5 * eovld :o) bit. 5 input pern overload led (0«off, l«lit alarm* 

v ;. pb€.« epllalm to* .* bit 6 encoding at low sampling led ;0»off. 1-lit: 
... ; ; pb7.- wd2 ioJ bit 7 watch dog timer 

pb8 - .real \o) - bit"--8 anal- to-digit converter reset [ l-normai .,. 0- 
; pbll ■ eralS (6/ bit 11 must be set to 1 

; pb!2 - e2 tc) . .bit 13 HSTTF flag for H221 G722 ** : 

- M_?BD (x:«SFFE5) 
; pc2 - eg722 lo) bit 2 G722 encoding led (0-off; 1-lit aiarnU 

; • leds across panel: '''' 

,; : : :Note : for Digicast port B is a host port--".'. 
; .. That means, the following definitions are not. applicable. 

) ...... l. MUSICAM encoding led: x:<c$FFE4 bit 4 tamber.i 

; 2. *G722 encoding led: . . ' x: «<SFFE5. bit 2 lamber) 
; N/A 9. main phase, lock, loop led.:. 

= ; . 10. encoder overload led: x:<<$FFE4 bit 5 Ired) 

11.. encoding low sampling led: x:<<$FFE4 bit 6 (amber* 

:CAL: control the encoder, analog-to-digital converter reset line 

define SET ADC RESET ' ;bclr #C,y:oot_appl;. 

define • 'CUTaDC~R£SET ' ;bclr #C,y : <noL_appl ' 

; LD:" test. the. MAIN phase lock loop detect • 

define LOCK_COUNT ..'5''. ;S successive locks set the lock 

define TST SET PHASE LOCK_CD .-'jsef ' #1 , x : <<SFFS5 -' - 

■define TST~CLR~PHASE~LOCK CD 'jclr *1 . x: <<SFFE5 ' 

define TST~0N PHASE LOCK_L£D_XADPCM 'jset #1, x: c<SFFE5 ' 

define TST~0FF_FHASE_I^CK;J-EDJCADPCM 'jelr. «1, x.: <<SFFE5;, 

■ ; band-width: - 

; - low order bit of band-width limit code . 
; high order bit of band- width limit code 

.codes: . 00 - level 0 CDQ2000 standard band-widths 
CI - level 1 CD02000 standard band- widths -■• 
- 10 - level 2 CDQ20 00 standard band-widths-. 
"•' : 11-- level 3 CDQ2000 standard band - widths " - 

define TST SET LOW BAND WIDTH CD 'jclr , #C , y : <r.ct_appl ' 

define TST~SET~HIGH_BAND_WIDTH CD '.jclr- #3 . y : cnot_appl 

' define 7ST~CLR~L0W BAND WIDTH_CD '.3=1*' #j . y : <nct_appl * - . 

define TST~OjC H IG H_BAND_WIDTH_CD - ' 3= lr - Y 1 <not_appl * 

TOGGLE WATCH DOG CD macro : : 
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\. ; encoder host interface watch dpg/tickle 

; see what the host expects for a dog tickle and act accordingly V 
. ; if bit H HFO (host i/f flag 0) of X:M_HSR (host status register) 1 is set:. 
• . set~bit M_HF2 (host, i/f- flag 2). of X:M_HCR Ihpst control register. 1 ' 

; else 7 ■ Y\" ■*•*"■:■':•-. > 

; . clear bit M_HF2 (host i/f .flag 2). of X:M_HCR (host control register! . ■ 

V j9et ; #4 ,x:<<SFFE9, watch_dog_00 

bsez #4,x:<<SFFE8 ' \' v r ."■) 
' jmp <_watch_dog_lO • / 

watch dog 00 ' 

" bclr #4/x:<<$FFE8' '. /,' ; • ■ ; ' • • 

_watch_dog_10 -\ . ? - 

endm " . • - "„; ' 

. INTERROTT_HOST_CD macro . : 
.•wiggle host ; interrupt !HACK bit 14 of pert b .". 

bset #14.xV<c$FFE4 ' 

nop :Y-' 'y ' 

nop ; " ■*"•._ : . ^ ■ ■ ■ : .■ ; 

movep y :word_out ,x:<<$FFEB /output leds for last frame . 

nop . ■ "■ 

• nop " "' ; ■-, " ; ' ■ ■ " 

bclr : #14,x:«$FFE4 

endm • 

XNIT_HOST_VECTORS_CD-"..'- : . macro 

; initialize the : encoder host, vectors with start-up valid settings . 
; since, value is zero, use 30 sub-bands (€750 Hz J 

move . . #»$0,x0 . 

move v . xO ,y :host24_word "• 

; move. #>-!, xO ~ 

move xO ,y:host2A_word _ ! 

move , #>$0,x0 - " : • 

move; xOvy :host2C_word .. 

endm-' ■ •'' : ' • \ ■■ \" . 

•GET_SWITCHES_CD macro loop'. 

; copy switches received under host vector interrupt 
\; : . bits 0-4 allow user set audio band width by specifying- the upper 

sub-band to. be considered for bit allocation. ,.\ 

the range is from 4 (900 Hz) to 30 (€750. Hz) . 
. ; . ; , Note: .30 is the default if the value is not within the range, 

move' y:host24_word;x0 . -"- :: ■ 

■ move xO ,y : word_in,f, . ."\ 
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;3lfRATE, low/high : get the selected bit rate : 

• define ' TST SET_LO_BIT RATE CD - ; jclr ' #0,y:<not appl' 
define TST_SET_HI_BIT_RATE~CD "/ 'jclr .#0 , y : <not~appl • 

;C0DAD,MUS/G722: get the selected type of decoder input data.; 

define ' TST SET_MUSICAM_DATA CD : 'jcir ; #0.y:<word in' 

;:i:28.8- . . 

. . .define TS7_SET_G722 DATA_CD ": ■ :jset #6,yi<not appl' . 

define. SET_MUSICAM_DATA CD ' ; bclr #0, y i <noz~appi' 

define SET G7 2 2 DATA CD~ ■ ' V;bclr #0, y: <noz"appl * 

;•! ! 128.8 ; * * ~, 

;SDAD, LOW ;6r HIGH: get the selected sampling rate 

.• choice pairings .(A/B) . are:,. 16/24 16/32 16/48 24/32 24/48 32/48 

. define. TST SET LO SAMPLE RATE_CD . 'jclr *»b.,y:<not appl' 

define.. TST2sET~HI~SAMPLE~RATE_CD 'jclr . #'o.y-:<not~appl*. 

define "SET LO SAMPLE RATE CD ~ . / ' ;bclr 80 . y : <not~appl ' 

; 1 ! !28.8 .. ~ • • . • • ~- • 

. define. SET_HI_SAMPLE RATE CD • ' ;bclr #0.,y:<not appl'. 

; i I !28.8 " ' ~ • -\ • 

; MONSTERO : test whether mono or stereo framing selected 

define TST_SET_M0NO_STEREO_CD v 'jclr #0 f y:<not appl' 

define . TST^CLR^MONO^STEREO^CD ! 'jclr . #0 »y :<not~appl' 

iJOINTCE: test for joint stereo framing (if not mono selected above! 

. define TST_SET_JOINT_STEREO_CD 'jclr. #0. y :<not_appi' 

define TST_CLR~JCINT2sTERE0_CD . .'jclr #0,y: <not_. appl.' 

; set' which type ISO CRC- 16 checksum OLD (0).or NEW (11 

define TST SET NEW ISO CRC CD 'jclr #0,y:<not appl' 

define TST~CLR2nEW~ISO~CRC~CD . -jclr . #0.y :<not~appl ' 

;E4 : see if decoder, is framed .or. force MUSICAM.at LOW sampling rate ; 

define TST_SET_DECODER_FRAMED_CD . ' 'jclr #0 , y : <not_appl ' 
define TST3CLR_DECODER~FRAMED_CD . 'jclr *0 ,y : <not_apcl ' 

;BR0,BR1.BR2 get the ancillary data baud rate 

define TST SET LOW BAUD RATE_CD . ; 'jclr #0,y:<not appl' 

• define" TST~SET~MID~BAUD~RATE_CD ■ 'jclr-.. #0 , y : <not~appl '■ 
define TST~SET~HIGH_BAUD RATE CD 'jclr . #C , y : <not~appl ' 

.-. define TST~CLR~LOW BAUD RATE CD- .'jclr . #0,y:<not~appl'. 

define TST CLR_MID~BAUD~RATE~CD 'jclr #0 , y : <not_appl '.. 

define. TST~CLR_HIGH_BAUD_RATE_CD 'jclr #0,y :<not_appl' 

. .-summary alarm relay: alarm relay associated, with alarm LED 

define ' SET ALARM RELAY CD .' ; ;bclr • #0,y:<not appl' 

define CLR~ALARM~RELAY~CD . * . ' ;bclr : #0 , y : <not~appl ': 

define' TST~SE7 ALARM RELAY CD : . 'jclr ;.. #0,y:.<nct appl' 
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: define TST_CLR_AIARM_RELAY_CD ' .jc 

•define state for ail ieds on and cff for. start-up' 



#0 .y :<r.ot_appl; 



define OFF LEDS CD\ '$000000'- 
define ON_LEDS_CD ; . . '$000000;- 



; turn. Ieds off : 

define 
define 
■ define 
• define 
define 
define . 
. define 
■v-' define 
define 
define 
define 
; def ine 

; turn ieds on:, 

define 
define 
define 
define" 

. define 
define 
define 
define 

'..define. 

define 
: define 
define- 



off musi cam led_cd . . 
off~g722 led cd 
off~low sampling led_cd . 
off - overload led~q 
off~mono_led"cd 
. off~stereo led_cd 
off"joint LED CD 
. off"phase"lock LED_CD 
off~phase~lock_led_xadpcm 

OFF~ALARM_LED_CD 
OFF^BITALLOC " LED_CD 
' OFF REED SOL~LED CD' ■ 



on musicam led_cd . . 
on~g722 led cd 
onflow sampl i ng_led_cd ; 
on"overload led~cd 
. on~mono led~cd 
on_stereo_led_cd 

ON JOINT LED_CD 

on~pka£e~lock led cd. 
on"pkase"lock"led"xadpcm 
on~"alarm~led_cd 
on'bitalloc led_cd -. 
on"reed sol~led CD 



;cf f if bits set ' 
;lit if bits clear' 



";bclf-. 

' ;bclr : 
;bclr 
'bclr' 
• ;bclr . 
• ;bclr 
';bclr 
?bset ■' 
• ;bclr 
• ;bclr 
■v:bclr"- : 
vbclr 



UQ.y: 
#0,y: 

no.y. 
*i;y: 
t*0,y: 
#0,y: 
*0,y: 
*0..y: 
#0,y: 
#0,y 
ttO.y 
*2,y. 



<not_appl ' 
<not_appl ' ; 
<not~appi".- 
<word_6ut ■ 
<not_appl ' 
<nct~appl ' 
<not~appl * 
<word_cut '. 
<not_appl ' 
<not~appl'. 
:<not_appl'. 
:<word cut' 



• ;bclr- 
';bclr 
' ;bclr , 
,'bset 
' ;bclr 
' ;bclr 
";bclr 
' bclr . . 
* ;bcir 
' ;bclr 
•' ;bclr, 
'bset. ' 



#0,y: 
#0,y: 

ao.y 
#i,y 
*o,y 
#0,y 
#0,y 
#0,y 
«0.y 
ttO.y 
#0,y 
#2.y 



<not_appl' " 
<not~appl' 
<not~appl '. 
<word_out ' •. 
<not_appl* 
<not_appl' 
:<not appl', 
i <wor3_out'.. 
:<not_appl' 
icnot^appl* 
:<not_appl' 
: <word out ' 



def ine - SET_LEDS_CD 



•movep y:word_out,y :<<SFFFF' 



»♦*#*♦**** 



•DECODER hardware settings for Ieds , and lines 



;control the decoder devices: 
.; - phase lock loop. signal line : 

; control the decoder devices: 

tested inputs of: " '..* 

y : <<$FFFF 

;; ; BRAD encode select data type . 
;;; LO/HI encode . sampling rate ... 
; COpAD decode select data type. 
; MUS/G722 decode sampling rate ;. 
; .SRAD decode bit rate - 
;;; 32/48 not used . . 

low bit encoder band width code 

; high bit encoder band width code 
•'baud rate code low order bit .: 
/; baud rate code middle bit . 



M PBD bit 6 



; bit 0 (0-MUSICAM. 1«G722> swl 

; bit .* 1 ,<Q«high, 1-low) sw2 

. bit . 2 (0-MUSICAM, 1-G722) sw3 

bit 3' (0-higfc, l-low) sw4 

bit 4 (0«56Kbits, i-64Kbits) sw5 

;bit 5 (0«low, 1-highi. sw€ 

•bit . 8 (0-0, 1-1) sw 1 back panel 

•bit 9 (0-0, 1-1) sw 2. back panel 

'bit 10 (0*0., 1-1) sw 3 back panel 

bit 11 (0-0, 1-1) sw 4 back panel 
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; caud raze code high order bit 

CRC- 16 • 2LT- ' : * or NEW . { 1 i ISC . 



bit 12 (0-0, l«l sw 5 back car.*; 
;bit. 13, iO-cld. Lnew, sw 5 fcac* panel 



!t:Note: for Digicast port B is a host port 

That means the following definitions are. not applicable. 
' . M PBD IX: <<SFFE4) ■. 
hTPBD ix:«cSFFE4-> 

!L5 "loop back '.::'bit C ;~l=not loop back. 0«locp back, 

" LO main phase: lock' loop signal : line : bit 6 (l»loc< 0-nct) 
E2 KSTTF fiag for K221- *• . G722 •* bit 13* 



set. outputs of : 
:::NoLe: for Digicast 
That means the 



pbl * 
pt2 - 
pb3 - 
pb4 a 
. pfcS - 
pb7 * 
pbe - 
DbS - 
pbio 
pfcll 
pbl 2 
pbl 3 
pbl 4 



citrate (o); 
coding Xo* 
samprate„ (o>. 

32k. .io:-"- ■-" 

48k (O: • 

wdl o: 

idarst (s) 

eO (o) 
• el (o) 
■ decralS 
». e3 (0: 
= e2 (ol ; 
» e4 (o; 



port B is a host port ■■' 

following definitions are not aoplicable. 
M_PBD lx:<<SFFE4) , / : : V ' . . 

M_PBD <x:<<$FF£4). 

bit 1 determined framing bit race (G-low, 
type of .data to decode to*MtfSICAM. 
determined sampling rate. (0-low, 



(o> 



bit 
bit 
bit 
bit 
bit 
bit 
bit 
.bit 
bit 
bit 
bit 
bit 



2 
3 
■4 
5 
7 
8 
9 
10 
11 
12 



sampling rate low led-9 iO-pff, l» 



pc2 « alrmrly (o) 



sampling rate high led- 10 (0»cff. , 
watch. dog timer (0 -clear, ; l=seti. 
digital -to- analog reset (1 -normal. 
CO flag for H221 ** G722 ** 
C2 flag for H221 ** G722 
boot top (1) or bottom (0) must be 
ABIT flag for H22I' •• G722 ** 
13. NOT USED . ** MUSICAM ** 
14 HSFFT flag for H221 •* G722 •* 
M_PBD (X:<<SFFE5) 
bit .2 alarm relay . 



l-highi 
■G722; ' 

igh,- ■ 



C«reset * 



ledsi across panel: 

encode i. MUSI CAM data led: . y : <<SFFFF. bit 0 (amber) 

encode 2. G722 data led:. y:<<SFFFF bit 1 (amber) 

• 3. MUSICAM frames led: y:<<$FFFF bit 2 (ambers 

4 . G722 input data led: ' y : <<$FFFF bit 3 (amber) 

S., framing alarm led: . y : <<SFFFF bit 4 (red! 

6^ mam phase lock loop led: y : <<SFFFF bit 5 -.(.green V 

7; decoder overload led: y : <<$FFFF bit 6 (red:. 

. 8. crc bit error led: y :«SFFFF bit . 7 Tree! ■ ' 

encode 9. encoder overload led: . y : <<$FFFF bit 6 (red) 

•encde lC. main phase, lock loop led: y : <<SFTFF bit 5 ( green V' 

encde 11 . low (l) vs hi (0) sampling: y : <<SFFFF bit C (amber;. 

/ i2. low (1) vs hi (0) sampling: y.<<SFFFF bit 0 (amber'; 



:CAL: centre 1. tine decoder digital -to- analog, converter reset line. 



■ ^define SET DAC RESET 
define CLR~DAC~RESET 

! LB:, test the. loop back. . 



define 
define 
define 
define 



TST SET LOOP BACK DCD 

. tst"clr"loop"back"dcd 
tst~set~loop~back fradpcm 
tst~clr~loop~back~fradpcm 



' bset 
'bclr 



■' j clr 
'jelr 
/ -jclr- 
; ' jelr 



*2.x:<<SFFES' 
SI2.x;<<$FFES'. 



*0 . y :<not_appl 
1* 0 , y : <not_appl 
#C . y : <nct_appl 
#C.y:<nct2appl 



L? : test the . MAIN phase lock, loop . detect 
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; ; •• ;■ ■■; . - ■ *; ' • • • • •■-37'--" ; V .' .;■ •. / ■ . , 

■ def ine TST SET PHASE LOCK DCD • '" ■ i set ■ ' #C ,x: <<SF"5 ' 

define- TST^CLR^PHASE^LOCK^OCD ' • jcir '• ' #0 . x: <<$FFE5 

TOGGLE_WATCH_DOG_DCD macro \ \ 

; encoder host interf ace .watch dog tickle 

;see what the host expects for a dog tickle and. act accordingly 

; if bit M_HF0 (host.i/f flag 0: of X:M HSR (host status register) is set. 

. . set~bit M_HF2 (host i/f flag 2) of X:M_HCR (host control register)* " 
else 

' '. V. : . . clear bit M_HF2 (host i/f. flag 2) cf X:M_HCR (host control register) . 

jset #4 ,x:<<SFFE9, watch dog CO 
bset .'. #4,X:<<$FFE8 •"/" 
jmp r\ <_watch_dog_10 

watch dbg 00.' . ' • 
bclr • . #4.x:<<$FFE8 . •'• / _ • 

_wa'tch_dog_10 ■ 

endm. '•■ * . . 

INTERRUPT_HOST_DCD macro. . 

. ; wiggle host interrupt ! HACK bit 14 of port .0 

bset • #14.x:<<$FFE4. ■ / ' '" 

; ■ ; ' nop : " ' 

movep.. y:word_out ,x:<<$FFEB ;output leds for last. frame 
• --nop- • ■ . 1 ' ' 

'. 'nop' . . - ' • 

■ ;.bclr :,. #14 ,X:«SFFE4 . 

endm" • - : ' 

INZT_HOS?_VECTORS_DCD macro 

; initialize the encoder host vectors with start-up valid settings 

move. . #>$0,x0 '• 

move: x0,y:host24_word 

. endm ■ - , ; 

v GET_SWITCHES_DCD macro LOO P 

; copy : switches received under host vector interrupt ... 

. . move. y :host24_word, xO . 
move ; xO,y:word_in . 

. endm .■■-•.■'.'..'* 
; BRAD, low/high:; get ..the. selected bit' rate. ' ; - \-, : 
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!28.8 



define 
define 
"'define.- 
def ine ' 
define 
define 
define 
define 
define- 
define 
3 . 
define 
define 



TST SET AUTO BIT RATE DCD 
TST~CLR~ACTO~BIT~RATE~DCD 
TST~SET~AUTO~BIT~RATE~FRADPCM 

tst~clr~auto~b it~rate_fradpcm 
tst sset auto bit rate fradpcm 
tst~sclr~auto~bit~rate~fradpcm ' 
tst~set lo bit rate dcd 
tst~set~hi~btt~rate~dcd 

TST~SET LO~B ITERATE FRADPCM'; • 

tst^set^hi^bit^rate^fradpcm 

set lo b iterate dcd ' 
set~ki~b:t rate~dcd 



jclr \ UO . y: <hct_appl * 
jclr .. »C .y:*n3t~appl.' 
jclr." #0, ytxnct^appi* 
jclr #0 y :<nct~appl' 
jclr I»0 t y:<not3appl f 
'jclr #0, y : <not_appl' 
'jclr . *0,y: <not_appl' 
■ -jclr- - . #0. y : <nct~appl' 
'jclr*.-'. #0. y : <nct~appl* 
' jclr;-'" #C.y;<nct~appV 

' ;bclr ItO , y : <not_appl ; 
' ; ;bclr #0, y: xnct^appl ' 



!28.B 



;C0DAD,MUS"/3722:.' get the' selected, type of. decoder, input data 



define 
define 
•define 
define 
define 
define ' 
define ' 
• define 
define 
define 



! : 125. 8 



define 
define' 



tst_set_autc coded data dcd - 
tst clr auto~coded~data~dcd 
. tst~set~auto~coded~data fradpcm < 
tst~clr~auto~coded~data~ fradpcm 
tst~sset auto coded_data fradpcm 
tst_s cut auto~coded_data fradpcm 
tst_set musi cam data - dcd~ . 
tst set~g722 data dcd " 
tst~s£t~musicam data fradpcm. . 
tst2set_g722_data_fradpcm 

set musi cam data dcd 
set~g722 data dcd 



jclr. 
jclr 



jcir 
jclr 
jclr 

;bcir 
;bclr 



. #0. y ;: <nct_appl ' 

#p,y:<nct_appl' 

tto, y:<not_appl ■ 

#C , y :"<nct~appi' '' 

' s r 1 r *C,y ;<not^appl' 

'5sclr #2,y :<not2appl.' 

ItO.y :<nct_appl' 
. 80 , y ":.<not~appl ' . • 

**0.y : <not"appl.V 

UQ,y: <nqt2appl ' 

UO, y : <not_appl ' 
ftO, y :-<not~appl'7 



; ! : 128.8 



•SDAD low or high: oe: the selected sampling rate 

i she ice. pairings (A/B1 are: 16/24 16/32.16/48 24/32 24/48 32/43. 



26 . S 



;.:'26.B 



define 
define 
define' 
6 . 
define 
.define. 



tst set auto' sample rate dcd 
tst~clr~auto~sample~rate~dcd 
tst~set~lo sample rate dcd .'. 
tst~set2k:Isample"rate_dcd ..■ 

■' SET LO_S AMPLE RAT£_DCD ' • ' : 
■ set"ki SAMPLE_RATE_DCD - . 



• jel: 



f» c : , y : <not_appl ' 
no , y : <nct2 a PPV' 
8 0 ,.y : <r.ot~appi ' 
(tO.y :<not_appl* 



;E4: inform the encoder: .".-'. 

•.define SET_D£CODER_FRAMED_DCD ■ '. 

•DSWT : T.ute ■ the decoder output ""- 

define TST SET MUTE OUTPUT_DCD •' 
"define : TST2cLR"mUTE^0UTPUT_DCD.- 

;DSWfi,DSW5:. test, the mono output channel requirements 



; bclr ■■ : ftC , y • <not_appl ' 
; bclr. #0 . y : <nct~appl • 



;V;bcir #G,y:<r*ct_appl; 



■ jclr #C.y :<not_appl* 
'jclr #C,y :<not~appl' 



define TST SET MONO ONE_CHANNEL_DCD ■ ' 
define TST CLR MONO~ONE_CHANNEL_DCD 
define 7 TST~SET~MONO~L£FT_OR_RIGHT_DCD. 
define TST~CLR"M0NC"LEFT_OR_RIGKT_DCD 



'jclr <*C , y: <not_appl' ' 
.' jclr. . . #0 . y : <nct~appl ' 
'jclr #0, y : <not_appl ' 

/'jclr. ' . .#0 ,y : cnct^apFl-'. 1 
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;tc be activated sometime in CDQ10.CO. 

define TST SET FADE OUTPUT DCD 
define : TST~CUTfADE~OUTPUT~DCD 
define', TST~SET~FADE~OP_DCD 
define TST~SET~FADE_DOWN DCD 
define. FADE_INCREMENT 'I' 
.define FADE_SOFTEST - ..'40' 
• define : FADE_START_UP '20'-' 
define 1 FADE FRAMES '2' 



'jcir no , y :<nbt_appi 1 
'jcir. * «0. y :<not~appi* 

.■'jcir'. S0,y :<not_appi' 
'jcir #0,y :<nct^appl * 

- ; 2 Db per frame 
;max of dowr. 80 Db 
;max of start up 40 Db 
;fade every N, frames 



rLINSELO, LINESEL1 : - test , if line 1 and /or line 2 is selected 



define TST SET LINE 1 SELECT DCD ■■ 'jcir' 

define . TST~SET~LINE~2~SELECT~DCD ; . .' ' jcir 

define TST"CLR"LINE"l SELECT~DCD 'jset 

define TST~CLR~LINE~2~SELECT~DCD -■ 'jset 



#0,y:<not_appi '■ 
#0i y:<not_appl ' 
#0 , y : <not2appl ' . 
#0", y:<not_appi\ 



;DIAGNOST .(ANCELDTA) : test whether diagnostics programming is to be executed, 



define* 
define- 



TST_SET_D I AGNOSTICS DCD 
TST CLR DIAGNOSTICS~DCD. 



'jcir. #0,y: <not_appl' 
jcir #0,y: <not_appl ' 



;BR0 , BR1 , BR2 : get- the ancillary data baud rate 



define. TST SET LOW BAUD RATE DCD 
define TST~SET~MID~BAOTrRATE~DCD . 
define TST SET HIGH BAUD RATE_DCD 
define- TST^CI^LOWJiAUD RATE_DCD 
define TST_CLR MID_BAUD~RATE DCD. 
define TST CLR~HIGH BAUD RATE DCD 



;jclr. #0 . y: <not_appl' 

'jcir #0 , y: <nct~appl ' 
- 'jcir . . #0, y : <not~appl* 

'jcir #0,y: <not~appl' 
: 'jcir - #0, y:<not~appl' 

'jcir #0,y:<not_appl' 



;BR0,BR1,BR2: get diagnostics code when DIAGNOST (currently ANCELDTA) is set 
; dip switch interpretations for diagnostic operation 



define TST SET LOW DIAG CODE DCD - ' jcir 

define . TST~SET~"MID~DIAG~CODE~DCD 'jcir 

define TST~SET~HIGH DIAG CODE DCD" . . 'jcir 

define TST~CLR~LOW DIAG CODE_DCD 'jcir 

de f ine TST_CLR_MI D~D I AG~ CODE DCD 'jcir 

define TST CLR HIGH DIAG_CODE DCD. 'jcir 



tf0,y:<not_appi' 
feO , y : <not^appl ' 
80,.y:<not~appl' 
HO , y : <not"appl ' 
lt0,y:<not_appl' 
#0 , y : <not_app"l ' 



.•summary alarm relay: alarm relay associated with alarm LED 



define SET ALARM RELAY DCD . 

define. CLR~ALARM~RELAY~DCD • 

define TST~SET ALARM_RELAY DCD 

define TST CLR~ALARM RELAy"DCD 



' ,-bclr 
.',-bclr 
'jcir 
•jcir. 



#0,y:<not_appl' 
*f0,y:<not~appl' 
#0;y:<not~appl' 
#0,y:<not_appl' 



.•define state for all- leds on and off for start-up 



define 
define . 



OFF LEDS DCD 
ON LEDS DCD 



'$00* 
'$ff ' 



;of f if bits. set* 
; lit "if bits clear' 



;turn leds off.: 

.. define •' 
define 
define . 

.-.define-. 



off_frame led dcd. 
off crc_error~led_dcd . 
■off"overload led_dcd 
off~phase lock_led_dcd. 



' bclr v #1 , y : <word_out * 
'bclr #2 , y : <word~out ' 
'bclr . #3 , y: <word~out * 
' bset . #4 , y : <word^out ' 
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\ define ' OFF_REED_SOL_LED_DCD :. 

define OFT LC BIT_RA7E_LED DCD 
. . define . OFF~HI~BIT RATE LED/DCD '. 

define OFF~MUSICAM LED" DCD 
; define OFFJ5722 LED_DCD 
- "define OFF PHASE LOCK * LED FRADPCM 
OFF_PHASE_LOCK_LED_HACRO_FRADPCM macro ... 
bclr r #57x:<Eram_Mem . ; ■ 
move . x:<Eracn_Mem,xO 
movep '. xO,y:<<$FFFF 
• endm 

OFF OVERLOAD LED MACRO FRADPCM macro 



' bclr #5 ; y : <word out ' 

' ;bclr #C ,"y : <not_appl ' 

;bclr #C,y:<not~appl ' 

' ;bclr UC ,y : <not~appl • 

;bclr #C,y:<not~appi' 

.';bclr #0,y:<not~appl* 

/turn cff red. led.-'* 



bclr • 
movep ' 
endm 
.define 
■ .define, 
define 
define' 
define 
. -define; 

; turn leds on: . 

define 
- define 
define 
define 
define. 



#6,x: <Eram_Mem . 
x : Er am_Mem7y : < < $ FFFF 



;turn off overload led 



off lo sample rate- led dcd 
off~hOample~rate~led~dcd ; 
off~monc_led dcd • ~ 
off~stereo led dcd . 
off" joint led_dcd • 
off alarm~led dcd . ' 



ON FRAME LED DCD . 
ON~CRC_ERR0R~LED_DCD 
ON~OVERLOAD LED DCD 
ON~PHAS£ LOCK LED_DCD 
ON~RE£D SOL LED DCD 



define ON_LO BIT RATE LED DCD 
. define ON HI~BIT~RATE~LED~DCD 
define ON~MOSICAM_LED~DCD 
define ON G722 LED DCD 
define ON~PHASE LOCK LED FRADPCM 
ON_PHASE_LOCK_LED_MACRO_FRADPCM macro 
~ bset ~" #5, x:<Eram_Mem 
move . x:<Eram_Mem,xO 
movep . xO , y :< <5FFTF 
endm / 

ON_OVERLOAD_LED_MACRO_FRADPCM macro 
~* bset . . #6,x:<Eram_Mem 

movep. x:Eram_Mem7y:<<$FFFF 



' ;bclr, 
' ;bclr 
; ;bclr- 
' ;bclr 
' ;bclr 
'.;bclr 



'bset 
'bset ■ 
'bset 
'bclr, 
' bset 

' ;bclr 
: ' ;bclr 
' ;bclr 
• ;bclr 
' ;bclr 



#0,y : <not_appl' 
#0 , y : <not~appl ' 
»0;y rcnot^appl'- 
tt0;y :<not_appl f 
#0,y:<not~appl' 
#0,y:<noc_appl' 



#l;y :<word_out ' 
#2,y:<Word"out i 
#3 ,y :<word~out' 
#4 ,y:<word_out' 
$5 , y : <worjd_out ' 

.#0,y:<not_appl' 
#0,y :<not3appl ' 
#0 r y:«hot3appl' 
#0,y :<not~appl' 
tO,y:<not"appi' 



;turn on red led 



;turn on. overload led 



endm 
define " 
; define 
define 
define 
define .■ 
define 



on lo_sample rate led dcd 
on'hi sample~rate~led~dcd 
on~mono led_dcd ~ ; . 
on"stereo led dcd • 
on" jo int led dcd 
on~alarm~led~dcd 



define SET_LEDS_DCD . 

define T5T SET CRC_ERROR_DCD - 
define TSTZcuCCRC_ERROKJ)CD 



' ;bclr #0>y:<not_appl' 
. ' ;bclr #0,y:<not~appl' 
' ; bclr #0 , y : <nbt"appl ' 
' ;bclr #0,y:<not~appl' 
';bclr #0,y : <not^appl* 
• ;bclr ,. #0,y:<not2appl' 

'movep y:word_out,y:<<SFFFF< 

. 'jclr #0,y:<not_appl' 
'jclr . #0,y:<not~appl' 



;define macros for getting the. encoder and decoder external switches 
GET SIT RATE CD macro \ . 
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; encoder interpret .the external, switches for : the framing bit rate 



move • #>RATE_LO.x0'/ 
!! 128.8: force low bit rate 

TST SET LO_BIT_RATE_CD , _grte_a 
! ! ! move ~#>RATE HI , xO . . ~ . 



;.start with lower KBit rate 



.•otherwise; use higher KBit rate 



! !_grte_a 
. " move 



xO,x:tstrate 
' ■ - t ■ . endm ' ■] - 

GET_FRAME — TYPE^CD. macro 

micro encoder only handles mono frame type 



set selected rate 



move' 
move 



#>MONO,x0 
xO.xrtstf rme 



determine .the NEW ' or OLD ISO CRC- 16. specification 
bclr #CRC_OLD_vs_NEW,y:<stereo 
TST_CLR_NEW_ISO_CRC_CD,_gtyp__a . 



;0 -OLD ISO specification 
;1-NEW ISO specification . 
; if not ' use. NEW CRC, done 



;1-NEW ISO specification.; 



* MiniCodec board FORCE new ISO crc " \ . 
. ; bset #CRC_OLD__vs_NEW,y:<sterec 

;;;_gtyp_a 

'; default to old CCS CDQIOOO's 

bset, #0,x:tstoccs ■/ ;l«old CCS .CDQ2000'S 

endm • 

GET_CODEJTYPE_CD macro 

; encoder interpret the external. switches for; the type of coded output 
MUSI CAM frames or G722 . 



;!! 128.8: force MUSICAM 

; ! ! ! TST SET_MUSICAM_DATA_CD, _gcde_a 
;!!• bset #0,x:tstcode 

;!!• off musicam led_cd . 

; ! ! : . ■ off~low_sampling_led_cd " ■' . \ 

; ! ! ! - on_g722~led_cd. 

;!!! set_g722_data_cd 

; i i i, jwp~ <_gcde_b , 

;!!! gcde a 

" ON MUSICAM LED CD 
OFF G722 LED CD 
SET~MUSICAM DATA CD , 



/indicate G722 output 

;turn off MUSICAM indicator 

;tum off low sampling rate indicator 

;turn on G722 indicator 

;set line for encoder G722 



;turn on MUSICAM indicator 
;turn off G722 indicator . 
;set line for encoder. MUSICAM 



!_gcde_b 
~ endm 
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•• ' ' '■■ ' .. .42- - : , t .. .. .... ' 

GST_SAMPLE_RATE_CD mac re ' l> 

; micro encoder handles low and high' sampling races . ' 

; !i:2B.8: force low sample rate ■ 

;!!: . * TST SET LO_SAMPLE_RATE_CD , - gsmp_a . ■ 

; i \ : bset ~#0.7x: tstsmpl ~ . , - . . . ;indicate high K sampling, rate ' . 1 
;\\:, OFF LOW_SAMPLING L£D_CD • ;turn of f low sampling rate indicator 

■■;■:!: . SET~HI_SAMPLE_RATE_CD .-; set. line for high sampling rate. . 

-;!!- ; j m P~ ^SsroP-* 3 :'*•:"■■" 

; ! ! : gsmo a 7 ' . '■'*■'' 

■;!!:" TST SET G722 DATA CD._gsmp_b ; ;do not turn on if G722 . 

. ON LOW SAMPLING_LED_CD ~ ;turn on low sampling rate indicator,. 

" SET LO~SAMPLE_RATE_CD , . ; set. line for low sampling rate. • 

_gsmp_b 

, endm. • '.* ' - : . » ;. v.' : 

GET_BAND_WIDTH_CD macro ; \ 

; encoder interpret the external switches for the band-width code 
\ to set band-width based on frame. bit rate and type of framing 

;! !! TST CLR LOW BAND_WIDTH_CD, _gbnd_a .-check switch to interpret - as 0 • 
;!!'!■ bset "~**0,x: tstband " " ";set the band width code low bit on 

..lit..-, . • • . ■ . ■ ■ • . ' . ■ ■ . " , : . • . - • . ■ ' 

; ! ! ! gbnd a ■■ 

.•<!!* TST CLR HIGH BAND WIDTH_CD,_gbnd_b .-check switch to interpret as 0 
' !!: bset ~#1 ,x7tstband . .* set tne band width code : high bit on 

• ! I ! , " "" "' . ' 

..; i : !_gbnd_b 

' ; bits 0-4 allow user set audio band width by specifying the" upper 
■ '• sub -band to be considered for bit allocation. 

"he range is from 4 (900 Hz) to 30 (6750 Hz) . 

Not*- 30 is the default if the value is not within the range . 



move 
move 
move 



y:word in,x0 ■ . . ;get sub-bands, for y:<usedsb 

x0,x: tstband ;put value in the new i/p . 

xo',y:bndwdth put value in the. current*. 



endm. ■" ■ v . / ;"" : • '■ 

GET_BAUD — RATE_CD macro 

. ; encoder interpret the . external switches to get ancillary data baud rate 

• • » ' TST CLR LOW BAUD RATE CD. gbaud a ; check switch to interpret as 0, 

• ! i i bset ~*0,x:tst5aud ~ V ~;set the baud rate, low bit on 



i ' ■ gbaud a ■ ' . * " 

" TST CLR 1-TD BAUD RATE CD, gbaud_b ; check switch to interpret as .0 
<!"/ bset ~t*l,x:tstbaud " . ;set the. baud rate middle . bit on 

ji. • . ' ....... ■ ■ ' ' • " . ■ * * ■ ■ ' • ' 

' 1 obaud b : . ■ " " - • . . . . * « 

»- TST CLR HIGH BAUD RATE CD , gbaud_c ;check switch to interpret as 0 
! i ! . bset . ~*2.x7tstbaud , ~ • . ;set the . baud rate, high bit on 

i ! ;_gbaud_c ■ : ■ 



\' -v 
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; .decoder external switch macros v 
GET_5:T_RAT£_DCD macro - : 

; decoder' interpret the external switches' fcr the .framing bit rate" 

"; begin with raw code, for lower, framing . bit. .rate , .clear .aut o- select flag/' 

move "#>RATE_LO, x'C 
; :: :28. 8 : force, low bit rate ---v 

\ bclr . *ACTO_SELECT_BIT_RA?E.y:<Ctlflgs 
; : i ! .: move J aautorate, r0~ ~ ;addr .of curr bit autc select .state ' ■ ; ' 

if net auto. select' switch' is set>.go by 'the .selected switch setting * : - 

TST_CLR_AUTO_B:T_IttTE_bCZ,_grte_c . ■; if not auto*, select , ; test other sw 

'; : : :,-if in -loo? back, set - the. bit rate to high Kbits 

-; v: i TST CLK LOOP BACK DCV , _grt e_a ' ; if - not- loop, continue y 
. move *> >RATE_Kl7xC . ... " ; -;set higher KBits raw cede 

■';!!:;'. .jmp" < grte~e. " • ; install .chosen bit rate ■ 

; : ; _grte_a ' : : ■..,.*'; 

.111 ' ' . .- •. ■ ' ' * • . ■ . . *_...' " i ' .* 

;!!.:; see if already in ■. auto select! bit rate." 

'; !!'. jset #o/x: (rC) ,_grte_b ' . ;if already in auto, skip next . 2 stmts 

;ii:;set save code as in auto select bit .rate and indicate switch changes 

]:':': ■. bset. • #C,x:lrO)- ;bit 0 ■ 1 • A'JTO SELECT- ■ ; 

;-!::;.. bser *4 . y : <not_appi vindicate a switch change 

;!:!;set control flag to -perform auto .select ■ cf bit rate. . ■ 

: •:!:.. bset / #ALT0_SELEC7.Bir_RATE,y:<ctlf lgs ■ 

bset **C, x: autosel" v 
. ,*!!: move., y:frmrate,xO / ;use last rate tc start 

■;:;:' jrap ' <.grte_e 

'.;!!■;;.. set the bit rate "as; selected by- the switch 
: ; :_grte_c- ' > ' ; • : ' ' 

■ : : ;see if currently in auto select" bit. rate ,.'•-.. 

* : iclr' x:\z0'; grte_d ..;if hot " in auto, " skip next- 2 "stmts' ; 
'•'!:: -clear save code as NOT. in auto select, bit. rate -and indicate switch' changes 

bclr V#0.x:(rC) •'- ..'bit 3 - 0 - NCT AUTC SELECT 

• ! i : bsit #4!y:<nct appl... ; indicate a switch change. 

i:'!.! arte 4 V ■' • ;''•'•"-■"• .-. V-\ '■" 
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; :: !;see :f low cr high bit rate' selected^ if Z , keep . lower YJzl-l rate " ' " * 
!•!:!" • TST_SrT_LO_BITJlM^j:CD._grTe_e 

;!!! move.' "*#>RATE~HI , xO " • "T ;.dtherwise, use higher KBit rate 

.iii' ■ •" ■ . • * . • . • ■ . 

move • ~ 'XO.x:tstrate' " • ;set selected rate, 

endm '*' ' . 

GET_FRAME_TYPE_DCD macro 

■.• ■decoder interpret the' external switches for the frame type 
;. (not applicable! 

; ;■ however, set the current- mono frame output channel parameter ... 

; : clear the mono, out both channels flag and set the flag, if needed 

bset #MONO_0UT BOTH, y:<ctl figs * /mono out. both channels 

TS7_CLRJ<0N0_0tJE_CHANNEL_DCS,_gfrTr._a . 

bclr #M0N0_007_B0TH . y : <ctlf lgs : ;mono out one channel/ 
' _9*rm_a " ■ - ' ' • 

; clear the mono output one channel "flag indicating LEFT : 
and set the flag to the RIGHT channel if needed 

bclr . #M0N0_0U7_CHANNEL , y :<ctlf lgs ;mono one channel out LEFT 
TST_CLR_.MbN0_LEFT_OR_RIGHT_DCD , _gf nn_b 

bset ~#MONO_OUT2CHANNEL,.y :<ctlf lgs* - ;mono one channel out. RIGHT 

■ _gf TT,Jb 

' endm '.'■ '/ ' 

■ GET_CODE_TyPE_DCD macro- . 

; decoder interpret the external switches fcr the type cf coded input 
; ;. MUSICAM frames or G722 . _ 

; starts out as MUSICAM (default*, clear auto select flag 
; ! ! ! 28 . 8 i . force MUSICAM 

;!!! . .bclr # AUTO_SELECT_DATA_TYPE . y : < Ct 1 f lgs . " 
. 'move *autoeode,rO r \: r 

• : ! : ■ if not auto select switch is set. go by the selected switch setting . , 

.III • . . * i - ; 1 

TST_CLR_AUTO_CODED_DATA_DCD , _gcde_b 

.iii '• • ' . ■ ' ■ • , " . ' ... - - . \ .. '. 

•::!;if in loop .back, * leave the data type as MUSICAM 

;!'.:; TST_SE7_L00P_BACK_DCE,_gcde_d ;if in loop,, done selection 
;!!'.;see'-if already, in auto select '. code type . 

* ; i ■ i .: j set : ' no , x : irO . , _gcde_a ; if already .in autc . skip next 2 strr.ts . 

;i::;set save code as. in auto select code type and indicate switch changes 
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• ' • - • • • ' ... '"' / . ■ -45- . . • •: : •- \ \ • ; 

.;:::* ' ■ bset' ' ■ *C, x.-irC. 1 . : / ...-bit" c.« i « AU7C SEisrr-. 

.bset *4 ,y : <not_appl - . vindicate a switch change 

;:::;set control flag to perform auto -select cf . bit "rate" 

;!.:,! ■■' bset-. . 1t AUTO_SEI*ECT_DATA_TY?E , y : < c 1 1 f Igs • 

■ bset . $0 ,x:auto9el~ - •'. ™ ' 

set to. auto select,- . continue : with previous type of coded, data 

' move . ynputcde.xO ■ • 
! : : move' .. xG.x: tstcode . .-.indicate last input type 

; : : : . . jmp ' . <_gcde_d " ' ■ 

: i^gcoVb " ; *. V ■ • ■'**.'.'*■'...' ' V . . ' • ; - 

;::":;see if currently in auto select code type-."' 

.,- : ! : jclr #0 ,x: £rC-/,_gcde_c- ;if not in auto, skip next 2 stmts - 

; !* : .-clear save code as NOT in auto select code type and indicate switch changes. 

' • 1 ! - . * . , • ' *• ■ > • • ■ ■• •' . . ■ . 

; !.!: : bclr #0,x: <r0> >bit 0 - 0 - NOT AUTO SELECT . 

; : : : - . bset ,/#4,y:<not_appl - vindicate a switch change 

; : : ! gcde c"- * * 

..;!!!* . TST_SE7JTOSICAM_DATA_DCD,_gcde_d 
; ! ! ■ -bset " ' ~#0, x: tstcode* ';- ~ • . " •; indicate G722 input; 

; : : :_gcde_d 

•;!.!;;; indicate the switch selection: to encoder for data type 

•'.!!;!• TST SET ENCODE G722_DA7A DCD, gcde e . . ;if G72Z, set' that for encoder 
■SEt2enC0DE_MUSICAM_DATA b 5cs V .".-tell encoder MUSI CAM 

I ! ! jmp" - <_gcde_f ■ ~ • ' " 

';;:'!;; acde e 

• ;'i ! J ; ;~"SET~ENCCD£ << _G722_DA7A_DCO. ^ell encoder : 3722 ; . 

!_OCde_f ' 

~\endni ' f " 

GE7 - 3AMPI,E_RATE_DCD macro... :\-.\.. 

; decoder interpret the external switches for the "sampling" .rate 

; if select switch is set. see which type of coded data is being input ... 

; begin with the- code for low sampling -KHz rate, ."clear- auto. select flag - 
move . #0',x0 • ' ~ \ ■ 
;i::26.5: force low samole rate . . 
;!.:: ..bclr itAU70_SELECT_SAMPLE_RATE,'y : <ctlf lgs . 

■ ; ! ! ! . move fcautosrrxl .rO ■ 



iii. 



if not auto select- switch is set'; go" by the • selected switch setting 
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T£f_CLR_ALTC_SAMPLE_RATi_DCr,_gsmp_b ";':f not autc select, test ether' sw"-' 
; i : : ;.it in loop back, leave" the low sampling* rate selected * 
; : t i : ; TST_SET_tO0P_BACKJDCD,_gs*^_d. ;if in loop,, done selection 
see if already in auto select sampling rate 

jBet . *0.x:.(r0) ,_gsmp_a .'; ; if already -in auto!- skip next 2 stmts 

;;.!!; set save code as' in auto select sampling rate and indicate switch changes 

;!:: bset. <*0,x: (roi .... ;bit b • • l • " AITTO SELECT 

. !!! bset . .. #4 ,y:<not_appl . /indicate a switch change 

; i : :_gsmp_a 

; : : : ; set contrcl flag to perform auto select of sampling rate . 

!•!'!: , bset ; ' #AOTO_SElXCT_SAMPLE_RATEry:^ 

;!!! bset . #0. x:autosel~ 

move y rsraplrte, xO ;use last sampling rate, to start. 

; : : ! . jmp ' '. <_gsmp_d ....'•, , * 

.ill-. . — .-..•■*- • ■ 

; : : ! ; set the sampling rate as selected by the switch 

'•ii*', ' * . 

; 11 :_gsmp_b- ! " 

see if - currently in auto' select sampling rate 

jelr. #0,x: irb).,_gsmp_c . \';if hot in auto, skip next 2. stmts 

;!':!; clear save code as NCT in. auto select sampling' rate and . indicate switch. cha* 

!: :.! • bclr'. ' #0,x: trOi ■ ;bit 0 - .0 «. NOT AUTC SELECT 

bset #4,y -<not_appl ,; indicate a switch change 

.lit:. ' • • * : * 

V: i : - gsmp c 

;!!.*" TST_SET_LO_SAMPLE_RATE_DCD . _gsrap_d . ■ 

;!:: move #>T,xO " . ~ , "otherwise; use high rate . 

; ! : :_gsmp_d ' ■ . '" „.■' 

. move ' xO ( x:tstsmpl 

; ! i : ; ; ; indicate the . switch, selection to. encoder f or : data sampling. rate 



.11; 
.tit 



>iii. 



TST SET ENC0DE_HI_SAMP_RA7E_DC£,^gsmp_e ;if high rate, set for encoder 
SET~ENCODE_LO_SAMPLE_RATE_DCD . • ,, " ;teil encoder low sampling rate 
jrap". . . <_gsmp_f . . 

; : : : ; ; gsmp e 

-; lii.it" SE72ENCODE_HI_SAMPLE_RATE_DCD ;tell encoder high, sampling rate 

j f 1 - 1 . . . ; ~ . — ' ~ . 

;!! !;; _gsmp_f ' ' 
" endm - • 

' GE7_BAUD_RA7E_D CD macro ' ■" 

; decoder interpret the external switches to get ancillary data baud rate- . 
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V TS7_rLr._L0W_BAU£_RATE_DCC , _gbaud_a ; check switch to interpret as : • 
bset ~*C , x: tstoaud. ."" ;set :he baud rat* low bit er. ■ 

' -;.;'!! obaud a . 

TST CU*_MID_BAUw_RATE_DCC-,_gbaud_b' .-check switch-to interpret as C • 
. ;!: : " ■. bset x: tstbaud ~ ~// Tset the baud rate" middle bit' or. . / ; 

•■ ;.: : : abaud_b • . . - 

.;'!!•"" TST-CLR HIGH BACT>_RATE_DCI> , _gbaud_c : check switch to interpret as 0. 
:-V .bset 4 ~£2 , xTtstbaud ~ :■; . set the- baud rate high bit or. 

.• 1 ' * ' • ■' '* ■ , ' ''• " '. ' " ■ - • 
_gbaud_c - . ■ 

■ " eridrr. ; ■ - . - ■ - / 

.GST MSTK33_0FERATI0N_DCS macro" 

;. decoder get 'external switches for. method of - operation : NORMAL * vs DIAGNOSTIC ; 
endn- . . ;* \ .'• . ■ / ' ' ■ ' 

: G2T_riAGN0S7:CS_DCD macro • /.* 

; . decoder get external switches for diagnostic operation :. NORMAL . vs DIAGNOSTIC 
; !•!! ;■ if switeh set • for. normal operation, ■ skip rest of this interpretation 
; :.! -.: TST'CLR 3IAGN0STICS_DCD, _gdiag_c ;switch set for normal or diagnostics 
;!:'!;' set the diagnostic code bits..-.. y' : . 

• TSTCLR LCW_DIAG_CODE_DCD._gdiag_a "; check switch to interpret as'C:.-, . 
: bset ~*0, x : tstmeth . " . "Tset diagnostic code low bit on 

:''! odiaa a '/■/;••.- 

TST_CLR KID DIAG CODE DCD, gdiag_b .-check switch to interpret as . 0 . _ 
bset. x: tstmeth " ~ Tset diagnostic code middle bit or,. 

v\\\ caiaa b 

TST CLR HIGH DIAG CODE_DCC ,_gdiag_c ;check switch to interpret as : 
■ .". bset. ~$2.xTtstmeth. ~ - - " '• ; set ' diagnostic code high bi.t 'sr. 

; : : :_g3iag_c 

/*.-.. endm ' - ^ 

• ' VERIFY_A r JTO_SAMPLE macro'/- 

/ \ ; : ! iCiClcast : NOT APPLICABLE ' ■ • 

' endm. .•-.-'---/'. : . • • ,' v \ - 

;fcr CD02C12 start .with f lag set .to decode MPEG- ISO frames: 
; * bit 0:' C * MPEG- ISC 

1 - old CCS CDQ's • 
; -" bit C: C - MPEG-ISO at 240CC sampling 
. . • 1 - old CDQ10G0 (MICRO) frames at 24 003, sampling . /■ 

TOO MANY SYNC ERRORS DCS 'macro'- / • ; // 
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• . . v.- . , • ; . .48-. ■• ' : ;, ;■ ; 

;how tc handle the set of the RZ FRAME flag after tec many successive 

syr.r pat t err. failures •■ ■ :■ / ( . 

;■ .""always do old CCS COO' s 

.bset.. #0.y:oldccs ■ . .only handle '.eld CCS CCC's 

bset . • fti,y:oldccs. . ;old CCS CSQ'frms » 14.4 K sampl 

• jmp , ' ^restart, .-restart, as eld CCS .CCC'.s . 

; endm-' .'\ - " : - \ '■. " ''. . ■■ . \ ■ 

TCC_MANY_BIT_ERR0RS_3CD macro . 

■ ,iow tc handle the set of the REFRAMS flag after too menay successive • 
• ; ' ~RC- 16 bit errors . 

. if the claccs tit is -not set., switch from MFEG-ISD to eld CCS CDC's 

■ ;• '.'if old CCS has already been tried, restore MPEG -ISC and . re frame 

move' ' lfoidccs.r0 5 ' ;to test oldecs flag ffcit ci 

, nop — " 0 » MPEG- ISC .' 

, ' • •' ;' -i - old- CCS " 

; try decoding frames from; older CCS. CDC's units . . ' 

: ' bset- • #C,y:oldccs ;. ' ; set eld CCS "flag; 

; : i :dbg . :■ ' } -' 

' . " • . nop // " ;:';,: . ";. " . : / ■ : ./" - •■',.'■ 

• n^F .'-.■■''■.'■*..'■•.■'..':.■.'.'■*; ' . . 

hop: • ■ . ; ' ' .' / ; ■ ! . -; "' . 

' n3 P : ..•".*" ' 

. nop ' ' : ■ 

• ; ! ! ! dbg 

■ :mp ■ creframe / - .-reframe. try old. CCS • • 

endnv ' .■•'■"•--.'/* "■ . , . 

; This cede handles the special ancillary data problem when frames- have- ^ 
; . too many encoded according to the decoder baud rate and the frames also 
i ' .have the old ISC (CCS) CRC-16 checksum algorithm for protection: 
. ; This conditicn occurs when trying to determine if the stream of frames is 
from an eld CCS CTO2000 and are twe channel frames at low bit rates or is 
; the stream from "a new CCS' CDQ with MPEG-ISO frames but are protected , /. 
; . using the old ISO ICCS) CRC-16 algorithm. 

70C_MANY_DATA_ERRORS_DCD macro- 

• ';olc C3C1330 mono frames * 240C2 . sampling do not apply te this; problem." 

;:set' . ftl;y: irl; ,_tdata_10 .';if old CDQIOOO. skip over continue;' 

;if too many errors'; re frame using the oppcsite old. CCS - vs" MPEG -ISC- with.. 
. ; lew tit . rate two channel frames/ 

jset «C,y: ;rl>. tdata 00 . ■ ;if doing eld CCS. go switch tc ISC 
•bset---- to!y!oldccs ..... .switch to try old CCS decoding. 

jmp ' <ref rame " ,-reframe 

•data 0C ■ * 

' '■ * T bcir ■ nt.. y icldccs. *. ■' .switch to try MPEG-ISC' decoding- 



•^rnp ; < restart 



restart 
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• . : . ; ' -49- ,. - : ■:■ • ; . ". 

'■■_tdaca_lC- : -';\ _ ( ,-,..•/;,-' • - : ' : ■ 

endni . ; 

. ' ;define ancillary data baud rates and max byte counts per frame: 
;!!!28.8. 

14400 .sampling rate © 80 msecs 

• ;!,! !28,8 . '. /' ■ 

. . 16000 sampling rate-*© 72 msecs. 
24000 sampling rate © 48 msecs 
; - 32000 sampling rate © 36 msecs 

> ;; 48000 sampling rate © 24 msecs 

;. (baud rate * milliseconds » bits received 

; bits received then prompted to next even 8 -bits to yeild max bytes) 

• ;M_SCCRr.nh (see .pages 11-22 & 11-31). » ; 

; (C32. 000/000 / (64 " * nnn ) ) : - 1) (result rounded ii converted to hex!. 

; where. 32i 000, 000 is crystal. , nnn « baud rate 

: define BAUD300 'C /• ,*dip switch code for 300 baud 

define M SCCR300 % '$682' ; set. clock for 300 baud. rate. 

■ ; \ ! !28.8 

define BYTES 300 16.. *3' , ;3 bytes (24.0 bits »»> 24-bitsi 

define BYTES300~24 , . • 3 ». ;3 bytes (24.0 bits -«> 24 bits) 

; define BYTES300_16 ; '3' ■ ■ ;3 bytes (21.6 bits *-> 24 bits), 

' define BYTES3 00 24 : '2* . ; 2 bvtes (14 .4 bits -■> 16 bits) 

■ ; ! ! !28 . 8 *."■-■ 

. define^ BYTES300_32 '2' ; 2 bytes . (10 . 8 bits »«> 16 bits) 

'define BYTES300_48 . r l* , ;l byte (7.2 bits =»> 8* bits) ,. 

define BAUD1200 '1' . ; dip switch code for 1200 baud . 

'define M SCCR1200 . 'SlaO' ;set clock for 1200 baud rate 

.; ! ! !28.8 ■ . " ■ ■■ " • . -, 

_ , define BYTES1200 16 .'• "12- ;11 bytes (96.0 bits 96 bits) 

define BYTES1200324 '12* ; 12 bytes {96.0 bits 96 bits'; 

. ; define BYTES1200_1 6 '11' ;11 bytes (86.4 bits — > 88 bits) 

define BYTES1200 24 '8' . ;8 bytes (57.6 bits «»> 64 bits) 

.; ! ! !28.8 

define BYTES1200 32.. '6'. . ;6 bytes (43.2 bits.«> 48 bits), 

define, BYTES120(T48 4 ' / ;4.bytes (2.8. 8. bits ««>,32 bits: 

define BAUD2400 '2' . ;dip switch code for 2.400 baud 

. define M SCCR2400 'Scf ■ ;set clock for 2400 baud rate 

; I ! ! 2 8 . S . - . ■ - ■ : '. . "" . '■ :. *. 

define BYT£S2400_16 '24' V ; 24 bytes (192.0 bits ««> 192 bitsi 

. define BYTES2400_24, '24' ;24 bytes (192.0 bits -«> 192 bits) 
:■: ; define BYTES2400_16 *22' ;22 bytes (172.8 bits ««> 176, bits) 

; define BYTES2400 24 ' 15 ' . . •. ; 15 bytes (115.2 bits -«> ; 120 bits) 

; 11 128.8 : : '- *. . . ■ ■'...* "-. ' 

.. define BYTES2400_32 '."•'11', : ; il bytes (86.4 bits 88 bitsi. 

/ define BYTES240O_48 '8' ; 8 bytes (57.6 bits 64. bits) . 

■ . define BAUD36 00 " ,'3' . ; dip switch code for 3600 baud 

define- M SCCR3600 'S8a' ,?set clock for 3600 baud. rate 

• • ; ! i 128.8 . 

: define BYTES3600 16 .'36' . ;36 bytes (288 . 0 bits -«> 288 bits! 

' define BYTES360Q~24 : . '36' " ;36 bytes (288 . 0 bits --> 288 bits: 

; . . define BYTES3600~16 '•'••''33' . ;33 bytes (259.2 bits — > 264 bits; 
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•50- 



:28.8 



;fl.l28. 8 



define BYTES3600 24 

3 

define 3YTES3600 32 
define BYTES36pc~4B 

define BAUD4800 
de f ine . ; M_S CCR4 8 0 0 



; I I 128.3 



define BYTES4B00 16 

define BYTES4 800~24 

define BYTES4 800*16 . 

define BYTES4800~24 

3 

: define 3YTES4 800 32 

define BYTES480C~48 



128.8 



128.8 



define 3AUD38400. " 
define M_SCCR3B400 

define BYTES3840O 16 
define BYTES3840C~24 
define BYTES3840o2l6 
define BYTES38400_24 

define BYTES3840O 32. 
define 3YTES38400 48 



. define 
define 



128.8 



129.3 



define 
define 
define 
define 

3 

define 
•define 



3AUD9600 
M_SCCR9600 

BYTES9600 i6 
BYTES9600~24 
BYTES960C~16 
BYTES9600~24 

EY7ES9600 32 
BYTES9600~4 8. 



i : :2B .8 



: :28.e 



define SAUD19200 

define K SCCR19200 

8 

define' BVTES19200_16 

"define BYTES19200_24 

• define BYTES19200 16 

define BYTES1920O4 



define BYTES19200_32. 
define BYTES19,200_48 



'22' 
•17' 



'4' 

•see' ; 

'4B' • 
'4e' 
'44* . 
•29* 

•'22-. ■■' 
•15* 

•5' ■ 

''.Sc'. : 

'384' 
'3B4' 
'346*. 
*231* 

•173:'. 
: ' 116 ' 

*6.'' 
'$33' 

'96' 
*96' 
'87' 
•58! ' : 

'44* 
•25' 

•7' - 
•S19' 

•192' 
'192' 
'173' 
•116/ 

•87' 
•58' 



;22 bytes 



:..5 c::s 



: C11S 



;17 bytes .(129.6 bus --> 136 bits.' ■ / 
;11 bytes (.86. 4 bits •»> 88 bits: . 

;dip switch code for- 4 800 baud.. * 
;set clock for 4800 baud rate / 

;48 bytes.. (384 . 0 bits'««>.334 bits:. ■ 
;4B bytes (384 . 0 ..bits --> 334 tits % . 
;44 bytes (345/6 bits. •»> 352bits; ■ 
;29 bytes 1230 .4 bits -•>. 232 bits.- ' 

; 22 bytes .! 172 .8 bits ••> 176 bits; . 
;15 bytes (115.2 bits —> 12: bits 

;dip switch code for 3 84CC'baud. 
;set clock fcr 3B40O baud rate 

7384 bytes 13072. 0 bits -*> 3072 bits: 

;384 bytes {3072.0 bits ■'■■>. 3C72 bltsi 

:346 bytes' ;2764.B bits ««> 2768 bits) 

;231 bytes. (1843.2 bits 1848 bits: 

;173 bytes (1382.4 bits 1384 bits) 

;116 bytes (.921.6 bits— > 928 bltsi - 

.. ;dip switch code for 960C baud 
;set clock for .9600 baud rate. 

;96 bytes (768:0 bits -•> 76 8 bits' 

;96 bytes (768.0 bits ««> 768 bits; 

;87 bytes (691.2 bits -«> 696 bits: 

;58 bytes . (460.8 bits 464 bits;. 

: ;44 bytes (345.6 bits »■> 352 cits: 
.; 29 bytes (230 .4 . bits ■•»> 232 cits; ' 

: '.;dip switch' code for 192CC baud '.. 
;set clock fcr 1920C baud rate-. . 

; 192 bytes. 11536 .0 bits 1536 bits' 

.;192 bytes (1536.0 bits 1536. bits. 

; 173 bytes .(138214 bits •-> 1384 bits; 
;116 bytes (921.6 bits --> 528 bits': 

87 bytes (691.2 bits'--* 696 bits; 
; 58 bytes (460 .8 bits. »•> 464. bitsi" 



.•define sailing rate table of ISO MUSICAM frame header codes 



SAMPLERATES 
samp In g : 
; : : :28.e . 

;!i:28.8 -. 

dc 
• dc ' 

' CC - : 



if SAMP1X_RATE_PAIR«SAMPLE.16K_AND_24K 

SAMPLINGRATEll6 
SAMPLE_ID BITVHIGH . ; 
MAXSUBBANDS_CCS • 



; old CCS CDQIOOO sampling at 14.4 K 
; old CCS CDC1000 header sampling id 
;old CCS CDC1000 max sub - bands 1 chc 
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-51- • ..■ • • ; • " • r ; 

. oid CCS-. CDG10CC " max sub-bands I channel 
;old CCS CDC100C satncliw a: 14. 4 K 
;old CCS CDQ1000 .header samplmo id:fciv 
.-old CCS CDQ1000 max sub-bands I channel 
;old CCS CDQ1000 max sub- bands 2 channel 

• number of critical bands at 14.4' K. ' 
; num. freqs used for coding at 14.4 k 
;old CCS CDQ10C0 sampling at 14.4 K. . 

. ;old CCS CDQ100C header sampling id bit 
;old CCS CDO100C max sub -bands I channel 
•old CCS CDQ100C max sub -bands 2 channel 
;old CCS CDQ1000 sampling at 14.4 K 
;bld CCS CDQ1000 header sampling id bit 

. ;old CCS. CDQ1000 max sub- bands I channel 
; o Id CCS CDQ 1000 max sub - bands 2 = ha nne 1 

' ,-number of critical bands at 14.4 K 

. ; num. freqs used for. coding at 14.4. K 



• ' EITRATES macro 
, bitrates 

\ ;i!:28.8 • ' if SAMPLE RATE_P AIR- -SAMPLE .16 K AND 24K . / . 

; i : :28.e ~ " • 

;entry for code 0 RATE_LO .-framing bit rate of 28.8 Kbits 

dc. " BITRATE 56 , ;ISC frame header code for 28.8 Kbits 

dc : BITRATE~SS- ../ ;ISC frame header code for 28.8 Kbits 

dc OUTM56 16 . ;nurr. 24 bit wds 28.8 Kbit frame 6 14.4 K saxple. 

: dc OUTBS6~16, ... ;num bits 28.8 Kbit frame «.14.4 K sample . 

." dc'---. . BITRATE 55' ISO frame header code for 28.8 Kbits 

dc . BXTRATE^SS ' ; ISC frame header code for 28.8 Kbits 

dc 1 OUTW5S 16 . ;num 24 bit wds 28.8 Kbit - frame 3 14.4 K sample 

. dc ,OUTB562l6 ,-num.bits 28.8 Kbit frame 9 14.4 K sample 

; entry for code 1 RATE HI '; framing, bit rate of 28.8 Kbits. 

dc BITRATE 64 " ISC frame header code, for 28.8 Kbits, ' 

'■""dc* BITRATE~64 ' ;ISC frame header code for 28 .8 Kbits . • 

dc OUTM64_16 ;nurr. 24 bit. wds 28.8 Kbit frame £ 14.4 K sample 

. dc .'-"', OUTB64~16 ;num bits 28.8 Kbit frame ®14.4 K sample 

dc BITRATE_64 . ,*ISO frame header code for 28.8 Kbits* 

' dc BITRATE 64 .-.ISC frame header code for 28.3 Kbits 

dc OUTM64 16 /. ;nurr. 24 bit wds .28.8 Kbit frame £ 14.4 K sample . 

dc OU7B64"l6 . ;nuir bits 28.8 Kbit; frame 9 14.4 K sample 
: ' ; :23.8 ■ .'■ , 
; I ! :28.8 endif 

';;':•' endm • - . ;- : ■ • y * 

.-define bit .allocation bandwidth tables . . 

"BANDWIDTHS., ." " macro- 

bndwtbl •; ' 

■- ;::!28:8-' V--."'.'; if sample - RATE_pa:r«.sam?ix_i'sk - and_24K 



dc . MAXSUB BANDS CCS 

■ dr . : SAMPLINGRATE 16 

dc \ SAM?LE_ID BIT_HIGH . 

•dc ■ MAXSUB BANDS CCS 

■dc 1 MAXSUBBANDS~CCS . 

dc. . MAXCRITBNDS~16 - 

dc - NMSKFRE0S_16- . 

' dc V. ■ SAMPLINGRATE 16 

. dc "' SAMPLE ID BIT HIGH : 

•■"dc. ■ • MAXSUBBANDS CCS 

dc. MAXSUBBANDS~CCS .. 

: dc - .SAMPLINGRATE <16 : 

dc SAMPLE^ ID BIT_HIGH 

dc ■ ■ MAXSUB BANDS CCS 

" , dc . MAXSUBBANDS"CCS 

. dc MAXCRITBNDS~16 / 

•. dc :' ■ NMSKFREQS 16 . 

; : : 128.8 ■.• • : " ,;. 

. ; : : :'28.8 , . endif ■•■ 

, .*■ endrr 

.'..-.define framing bit' .rate .tabie ■ 
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: : :2S:S 

KBit ■ rates low/high 3 14400 sampling 

dc . USEDSUBBANDS OS 16 ; 

. dc : LIMITSUBBANDS • ... 

. dc ■ USEDSUBBANDS 01 16 ; . • 

dc LIMITSUBBANDS ~ 

• v dc USEDSUBBANDS 10 16 ; 

dc.. ' ' ■ LIMITSUBBANDS " 

V dc USEDSUBBANDS 11 IS ; 

*. dc ' ■ ■ . LIKITSUBBANDS " ■;. . .'. 

dc .• USEDSUBBANDS CO 16 ; 

dc..' . LIMITSUBBANDS " . ""; ' 

. dc- • . USEDSUBBANDS CI 16 ; . 

. dc -LIMITSUBBANDS "~ V" 

dc USEDSUBBANDS 10 16 ; 

dc ' . ." LIMITSUBBANDS " 

dc ■ . "USEDSUBBANDS_11 16 ■ 

; dc LI MIT SUB BANDS " ; . 



-52- 



K3it rates low/high q 144 00 sampling 



dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 

dc 

dc 

dc 

dc 

dc 

dc - 

dc 

dc 



!28.8 
129.8 



USEDSUBBANDS 00 16 
LIKITSUBBANDS '■ 
USEDSUBBANDS 01 16 
LIMITSUBBANDS. " 
USEDSUBBANDS 10 16 
LIKITSUBBANDS • ". . 
USEDSUBBANDS_11 16 
LIMITSUBBANDS " 

USEDSUBBANDS 00 16 
LIMITSUBBANDS ~ 
USEDSUBBANDS 01 16 
LIMITSUBBANDS ~ 
USEDSUBBANDS_10 16 
LIKITSUBBANDS ~ 
USEDSUBBANDS 11 16 
LIKITSUBBANDS . ~ 

endif ■ 



race. low code 00: mono band -width 
■ subbands- requiring 1 allocation 

m or.o band -width 
subbands requiring l allocation 
mono band-width " 
. subbands requiring 1 allocation- 

mono band -width 
•* subbands requiring 1 .allocation 

rate. high code. 01: mono band-width ! 

subbands requiring 1 allocation. 

mono band-width 
subbands requiring l allocation' 

mono band-width 
subbands requiring : allocation". 

mono band-width 
subbands requiring.; allocation 



rate' low code 00: mono band-width 

subbands requiring 1 allocation. 
: mono band-width 
■ subbands requiring l allocation 
mono band-width 
subbands requiring i allocation 

mono, band-width 
subbands requiring 1 allocation. 

rate high code 01: mono banc -width 

subbands requiring ! allocation 

mono band- width 
subbands requiring 1 allocation. 

m pno band-width - 
subbands requiring 1 allocaticr. 

monc band- width ■ 
subbands requiring i allocaticr. 



. endm 



; define ancillary, data baud rate table of clock values and byte counts 



BAUDCLK 

baudclx 

; : : :2B.s 
; : : :23.B .': 



ac 
dc 

■- dc 
dc. 
dc 

.dc- 
dc 
dc 



macro 



S AMFLE_RATE_FAI R--SAM?LE_1 6 K_AND_2 4 K 



M_SCCR300 
BVTES330_16 
BYTES300 16 . 
M SCCR12O0 : 

Brrssi200_i6 

BYTES1200 16 
M SCCR24 00 " 
. BYTES2400 16 



';set clock for 3 00 data baud rate''-" 

;tol check of bytecnt « sample 14.4 

;tcl check cf bytecnt ® sample 14.4 

.; set clock for 120C data baud rate 

;tol check of . bytecnt « sample 14.4 

;toi check of bytecnc ©sample 14.4 

;.set clock. for 24C0 data baud rate 

;tcl check of bytecnt <t samcle 14.4 
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at 


BYTES24GC_16 v 


; tOi 


" dc ■." 




; set 


dc 


BxTE5360C_ 1© 




■ . oc 


BYTESjoUU io 


' ' ;tol 


dc 


" M SCCR4800 


.•set 


' dc . 


" " BY7ES4800 16 >":" 


'*■ ' ;tol 


- dc 


BYTES4800~16 ■ 


;tcl 


dc 


M SCCR384C0 • 


. ;set 


-. dc • 


BYTES38400 16 


■;tol 


■: dc " 


BYTES3840C 16 ' . 


;toi 


dc . 


; M SCCR960C" : 


;set 


dc * 


. BYTES960.3 16 /. 


' '. ;tcl 


. dc ■ 


BYTES9600 16 : 


' ;tol 


dc 


M SCCR19200 . . 


;set 


: dc 


3Y7ES1920C 16'V'. : • 


;tcl 


'. dc 


\ 3Y7ESi92CC_i6 ; .* 


; ;tci 


8.8 






8.8 


endif . ">., 





cr.eck cf bytecr.t a sample .4.4 
clock for 3SCC data baud race " 
check of byrecr.t Z sample .14.4 
check of bytecnt Z sample 14 .4 
clock for 4600 data baud rate 
check of -bytecnt $ sample 14.4 
check cf bytecnt <Z sample 14.4 
clock for 3B4 0C. data baud rate 
check of. bytecnt a sample 14.4 
check cf bytecnt" «. sample 14.4 
clock for 96C0 data baud rate.' 
check of bytecnt Z sample 14.4 
check of bytecnt « sample. 14. 4 
clock. for 192 00 data baud. rate ' 
check cf bytecnt- a sample 14.4 
check of bytecnt « sample 14.4 



enam 



.■define MICRO decoder Autc Select MUSI CAM frame sizes j 

input data is MUSICAM frames vs G722 data 
; ; what is the framing bit rate and sampling rate 



;d deterr.ine '.if : 



AUTOFRAMS 



macro 



autotbl 
; 1 ! 128.8 
; ! ! 128.8 



dc 
dc 
dc 
dc 



128.8 
:28.8 



if SAMPLE_RATE_PA:R- ; -SAMPL£_16K_AND_24K ; 



OUTM56 16 
0UTM64~16 
OUTM56~16 
OUTM64~16 

endif ■■ ■ 



,-96 words in 28 

;96 words in 28 

;96 words in 28 

,-96 words in 28 



. 8 Kbit frame. <S 14.4 KHz 

9 Kbit frame Z 14.4 KHz 

.3 Kbit frame S 14:4 KHz 

.3 Kbit frame S 14.4 KHz 



endm 



; end of bo'x_ctl.asm 

. ***•*«• #** #T» •* ** * •**#******■« 



list/ 
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opt 



ic? 1995. Copyright 'Corporate Computer Systems.. Inc. All rights reserved. 
'\DGCST\dcframe.asm: u_psych parameter for findrms vs check sub' 

title " PCM data thru XPSYCHO and X CODE'- 
multiple mono channels . . \"; 

-trs -ou-ine receives a buffer of PCM data and builds a stand alone 
'"""'"/single channel monc frame for multiple mono channe- devices 



■ entry 

'■' • rc » address of the input .PCM- buffer - 
.• ri - address of. the coded frame buffer 

; cn exit ' ' ^.■ 

a • destroyed' 
b • destroyed 
"; . yO - destroyed 

•■' ' y- a destroyed" 
■; •■ z2 » destroyed . 
; rl » .destroyed 

:' ; ' r4 - destroyed " 
. ; ." n4' « destroyed' ■ 

include 'def .asm' 

section highmisc 
xdef . htonals 
xdef nmasker 

. org ; xhe : . • - 

stdcf rame_xhe 

ntonals ds . . 
nmasker ds 1 

enddof rame_xhe 
endsec 



; number of tonals in tonal structure 
; number of maskers m masker structure 



section ytables 
; xdef rngtbl 

org ' yhe: ■. 
_ stdcframe_ytbl . 



rngtbl 



dc 



V •'■ ; table for searching ■ for tonals 
.2/3:6/6. 12.12.12/12; 



enddof rame_ytbl 
. endsec 



org 



phe : 



dc frame 
: ; i Mdbg 
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!dbg 



rts 

;mp 
jrap- 



; ;mp. - . <cop 
<_xcode_ • 



-debug if using stcred frames. buffer 



.. #**#••*••••*•••*#•**•********♦ 
.***••***- Scare XPSYCHO #***•*******•*•♦**••*♦•**♦•**♦ . 



Now get the position to read the fft data from 

This buffer is offset from. the polyphase filter to account for the 
delay, through the filter. 



;mpve .'. 
move, 
move', 
move . 
move 


: *PCMS:ZE-l,mO . 
y : cpolyst . rC , 
* i256-64) /n2 

■ #hbuf ( r: 

• <rC!.-nC •. ... 


,-set to a mod buffer 
; get input pem buffer address . 
'■ V. • • = ;back up to position fft 

v . ;get -hanning -output, buffer address 


jsr 
move 


• <har.ning 
y :< linear ,mC 


; apply a hanning window 
. .-restore rO to linear buffer 


isr 


<fft 


. ; fft, the data 


move 
move 
move 
•jsr / . 


#fftbuf ,r0 •■■ 
. *ff tbuf ,r4 

<logpow 


■;real part of fft' " 
; imaginary part cf fft 

; compute power of fft data 


move 
move 
.jsr \ - 


" #power. rO 
ttSBMaxDb.rl 
.<findmaxi - 


' ;power array . 

.; maximum in each sub-band fslb!; 
,-finc max power in a sub -band.-. 


move : 
move 
move 

move 


*power,ri/ 
*Tonals,r2 
•"' #mgtbl,r4 . • 
<f indtona -.• 
r3 , x:ntonals . 


' ; power array 
; tonal array ' 

•' ; range table f or : . : tonal search- ■ 

■ ; find tonals 
. . .-save number of tcnals 


move 
move 
move 
jar 


tpower, rl . 
*Tonals,r2 
*rngtbl,r4 
<zeropowe - 


; power array '' 
; tonal array. 

; range table for tonal search 
.•zero power around tonals 


move 
move 

jsr . 


#power, rl . 
*NoisePvr.r2 . . 
<findnois . 


; power array : ■ 
; address 'of the- noise .'array 
[ ;find the noise i / ';;. 


move " 

move . 

move 

move 

jsr 

move 


#Maskers . r3 
#NoisePwr.r2 ■ *' 
#Tonals, rl 
x:ntonais,xC . 
<mergemas 
b,x:nmasker 


; address of . the masker structure "' 
; address of the noise array 
.•address of .the Tonals structure . 
cf tonals in Tonals structure 
\;merge the maskers 
;save » of maskers 


move 
move . 

: i sr • 


. fcMaakers.rO : 
. x:nmasxer,b 
<f inddbma 


; get , address. cf the Masker, structure 
; number cf maskers in masker structure 
■ ""-;'•"*; f ind the dr value of. maskers 



SUBSTITUTE SHEET (RULE 26V V ,^mal ft 



WO 96/32805 



PCTAJS96/04835 



move. . rtMaskers.rC \ ; gee address cf the Masker structure* 

3sr ■ <pruneclo . .-prune close maskers """" 

move; ~ #Maskers f rO • .; get address of che Masker structure' 

move ; x:nmasker,b " : number of maskers in masker structure 

. jsr ' <prunequi ; prune, quiet^ maskers 

; • move #Maskers.rO .' ;get. address ,of the Masker structure \" 

move,. x:nraasker.b '.-number of maskers in masker structure 

\, }sr <prunemas • . .-prune masked maskers 

move #Tonals.rC; .-address of the 1 Tonal s structure . 

. move. . x:ntonals.xd.-. . cf tonals in Tonais structure 

... move : ftAlisng.rl -. ; destination buffer address ■/ 

3«r <findalis ■■ • find alising components 
■ • move b; xrnalias 

move , : tMaskers, r4 ' .-.get address of the Masker structure 

move «GlbMsk. rl; .-address of global masking threshold 

isr . <QCalcGlc .-calculate global, masking* threshold 

_pclya_ 



polyphase filter the input. data 



move . y:<polyst.r0 

. '-.'move . . #PCMSIZE-l.mO.' 

move #PlAnal.r5 

■". jsr' <polyanal \ . 

move y:<linear r mO 

develop the scale factors 

initialize the table of scale, factors 

' : move ttSBndSKF. rO 

. *. move . #63 , n4 

do ; ttNUMSUB BANDS *NPERGROUP , 

move n4.x:(r0)* 



;get polyana start address 

; set "as a mod buffer ; 

;set start of the sub- band output buffe 

; poly analyze the data 

rrestore to linear' ctl' 



to minimum amplitude (63 ««> O'ampi: 
;addx of sub-band . scale factors 



^'init^OO*. 

";get*"value to store shared memory 



00 



.. move #PlAnai.rO 
• move #SBndSKF,rl : 
jsr . <f indskf ■ 

develop; the SBits for scale factors 



move 
move 
:sr 



#SBndSKF ;r0 
#SBits,rl . 
<pi'ckskf ■ . 



;addr of poly analyzed data 

; addr of sub-band scale factors 

;find scale factors 



; addr of sub-band scale facte 
;addr cf sub-band sbits 
;pick the best scale factors 



xcode 



. *•••****•*•*•*•»*••****♦ 



» • **• 

> *■• * * * * * * 



«•*******•****••*< 
* * * * ** ****♦••***< 
►•*#*•*****••»**< 
#*♦**•»******•**< 
»*•**•***«**•* **•***••*•*****#♦*< 



Start XCODE^ 



(***•#**«**•** 
>***•* ****** . 



****••*••**•* 
*•*******♦♦•*' 



SUBSTITUTE SHEET (RULE 26) Ip^ owfeiNAV J> 



WO 96/32805 



PCT/US96/04835 



. : - /..:•. v .57. : • • ;. ; • • . . ' ■ ■ ' 

/determine which method to-use zz determine the sub-band maximum values • - ' ' 

■ move yrj^psych.a ; get use findrms.asn .rtr. parameter 
move e.S.xl ;if less than .5, use checksub.asm rt 
cmp xl.a . ;see if parameter less than .5 

,jlt- ' ■ <_do_checksub . ;; l;if less, use checksub.asm rtn - ■ 

;use RMS for maximum .level' for the sub-band 

move #PlAnal,rC ' • ;addr of poly analyzed data "", . , 

move #SBMaxDb.rl .;addr of sub-band max • - 

' * isr <findrms ;find max in a subband 

i™? . <_set_mir._mask ;gc. to set. minimum masking level" - 

_do_checksub ■, , 

;se: ccrre:: maximum- level'" for the channel \ 

•move; • ttSBndSKF.rO -addr of sub- band, scale factors 

move ... - ttSBMaxDbirl ; ; addr of sub-band max 

jsr cchecksub . . ; find max in a subband 

ii set_min_mask :'*••. ' . 

;set minimum masking level in each sub-band 

move. #GlbMsk,rO . - channel global masking threshold . 

. move ^'#MinMskDb, rl ., , .-minimum masking per subband. is lb V . 

.jsr <findminm ;find min masking 

,-set minimum masking level in each sub-band: left channel. then right channel 

■ move. x:nalias,a ; number" of .aliaser' s 
move .'HAl-xsng; rb ■ . .-aliasing structure 

move JtSBMaxDb. rl .-max in each sub-band (sib; . 

jsr , <findmaxs- ,-find the maximum signal 

;set number of fixed bits required* and the number of available bits for audic 

jsr .-xbitpool • 

move xC, y:fixbits . . ;save fixed bit count 

move . xl,y:audbits ;save bit count " available for alloc ' 

/allocate the bits "in' the frame by subband * 

' move-. ' #SBits,rO ',; ;scale factors 

•move #MinMskDb,rl ■ ■ ' /minimum masking -per sub-band (sib '» ' 

• move' -' . *SBMaxDb,r2 *. , . ../-maximum in each sub -band'- (sib! 

: move . . *SBPos,r4 < ' '.; sub-band position;- ' 

move ' *SBIndx,r£ .. /sub-bar.d inaicies ;'. 

.jsr. . <bitalloc . ./ allocate the bits . 

; code the channel" audio frame 

. ..jsr < code frame . 

. 1 '. rts *■ ' ■ -.-.-;.' /:;"■'.'..'' " " .-. • ' . 
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; (c: 199S ..Copyright Corporate Computer Systems, . Inc . Ail. rights reserved. 
; \RM:CRC\ge thai . asm ', 

• title ; 'Get bit allocations' 
' This -routine is used to get the bit allocations of -each of the sue -bands. 

; It is from the ISO standard. ■ 

• ; sub -band 0' - 10. use 4 bits. (11 * 4 - 44 bits) 

. .; sub-band 11 - 22 use 3: bits. (12 *. 3 » 36 bits) 

; sub-band. 23. - 26 use 2 bits: ( 4 * 2 ■ 8 bits) 

.; ."(.total * 88 bits) 

; on entry ' ' 

rO «' address of bit allocation array for both left and . right xhanne 

•..r6.« current -offset', in 'the input array 
. ..*" n6 ■ base address of the input array 

y:<maxsubs » MAXSUBBANDS at sampling rate and bit rate 
y:s= » shift count of current input word 
.; ' y:frmtype « full 'stereo,', joint stereo cr mono 

y:sibound - joint sterec sub-band intensity bound 
x:crcbits «" accumulator of bits, covered by CRC-16 routine 
■ (bit. allocation bits, are accumulated) 

; on exit ' ■ 

r€ ■ updated 
, . y:sc » updated . 

- a « destroyed 
b » destroyed 
; xC » destroyed ' r \ 

; ■■ ■ xl » destroyed 
• ■ . ; ■ yC »' destroyed 

yl • destroyed 
rO - destroyed 
'.* " ' rl V destroyed 
r2 « destroyed ■ 
; '■ r4 - destroyed- / 

; n4 «' destroyed^ 

■ include ' def .asm' 

" ; 1MDGCST: '.' . . .; . 

section highmisc • 



;; • xdef ." masktbl; 

;;' ' . xdef ' tbl 

; ; '-org . yhe : .*;" " .•; 

; ; stgetbal_yhe. • -\ ' \ • 

■ ;: masktbl ' " 

' ; - • dc S0OCOOC . ' ;place holder in mask, table 

- ; ; dc • ' ■ S000001 ' ;mask table for 1 bit getvalue '; 

• ; -dc S000003 ;rnask tabie f or 2 bit getvalue '. 

dc ' S000007 • "* ; mask table . for 3 bit getvalue 

. " ' dc ■• SOOOOOf - ' ;masJc table f or 4 bit getvaiue 
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; 59-: . . '. -. '• 

.-mask. cable for 5 bit getvalue 
V : ;mask cable for 6 -bit- getvalue 
.' /mask" table for 7 bit getvalue. 
.-mask table for 8 bit getvalue.. 
/mask table for. 9 bit getvalue 
/mask table for. 10 bit getvalue 
' /mask table for-. 11. bit getvalue 
./mask table for 12 bit .getvalue 
.. /mask table for 13 bit getvalue 
/mask table for 14 bit getvalue 
/mask table for 15. bit getvalue 
■ ;mask table for .16 bit getvalue 

/•/define data size table for the getvaiue routine to extract data. 



. ;bits * .0, place hclder 

.";shift left- 01 bits 

;shift left 02 bits 

;shift left 03 bits 

;shift left 04 bits ■"■ 
; shift., left .05 bits . 

',. ; shift left, :06 bits' 

.; shift left 07 bits • 

" ; shift left 08 bits- 

/ shift left 09 bits 

'•; shift left 10 bits.., 

. . ;shif t left 11 bits', 

.. : . ; shift left 12 bits ' " . ■ 

' /shift left 13. bits / 

;shift left 14 bits 

/shift left 15 bits* 

• '' /shift left 16! bits 

;endgetbal_yhe 
endsec 

•section highmisc 
• xdef ' . /. skf tbl 
" xdef skf tbl 1 ■ 

.xdef:: skf tbl~2 ■ / : ' 

/.xdef / skf tbl_3 • , ; 

• ■ org xheV ' - ' 
stgetbal_xhe .' ; 

" /address of BAL's bit table. as per Allowed table selected . 

•skftbl' : ' ds- / ."; 1 . *;.-•/' 
, : /These tables is the number; of bits used by the scale factor in each, sub-band . 
? High sampling rates with higher bit rate framing.;;" 

4 ;• '\ . / sub -band 0 

4 •■ . /sub-band 1 : 

4 ; v : ' - , /sub-band 2. • - 

' /sub-band 3 . 





dc 


. SOOCOlf 




- . dc ""■ 


• SC0003f 




dc . . 


- S00007f 




dc 


sooooff 




dc 


'.. SOOOlff: 




dc ' 


S0003ff 


t t - 


• • dc .; 


S0007ff. 




.-dc 


SOOOfff 




dc 


SOOlfff 




dc 


". 5003fff 




' dc ■ ' 


\ S007fff 




• dc * 


SOOffff 



■' ' 


' dc;" 


; $000000 


/ / 


:.dc ' 


$000001 


* * : 


:• dc . 


. : $000002 




' dc 


$000004 




dc : '.: 


' soooooe 




dc 


sooooic 




dc 


$000020 




dc V 


S00004C 


* i 


• - dc - : 


S000080. 




. dc ' 


$000100 




•■• ■' dc '• 


$00.0200 


i • . 


.• dc.-. 


$000400 


/ "i 


. ' dc ■ 


$000800 


' V 


. "dcv 


$001000 




' ' dc '= 


$002000 




. . dc 


. $004000 




•dc: ■ 


$008000 



skftbl 1 



dc 
dc 
dc 
dc 
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• ac 


4 


;.suD-oana .4 




dc •' 




; sub -band 5 




... ac 








dc ■ 


4 -. 


;3UD-cana / 




ac 




t SUO'Dalla C . 




ac 








. dc ■* 


-.4 ' 


; sub-band 10 




uC ' 


\ 


; SUD'OaHQ 11 




ac 


\ 


; sub -band 12 




.'dc' 


■ \ ' ' 


;suo-oana ij 




. CC . 




, suo uariu it 




ac 


' ! -3, 


, aUU "Utuiu 13 




. . .dc . 




; SuD-DoIlu lea 




dc 




; SUO'Dallu 1/ 




ac - , 




. § SUS'Oauu 19 




ac 








.-.dc. 




, . ;Su0*yaiiQ *£U 






3- 


; sub -band 21 








; sub-band 22 




* dc"'* 


■..2-"- , 


- ; sub- band 23 




dc 


2 : '•'* 


; sub -band 24 




dc 


2 \ 


; sub-band 25 




• dc • 


2 - ■■ 


; sub-band .26 


.-end 


cable 3-3 


2a 






dc 


2/ '. 


; sub- band 27 




dc 


• .2 ■ 


; sub- band 28 




• dc. 


2 


, : ; sub- band .29 


;end 


table 3-3 


2b •• 




dc 


2 • '■ 


/ . ; sub-band 30 




. dc 


2.-*' ■ 


* sub -band 31 



; High sampling, races with lower bit rate framing 
skrtbl_2 '.; .' 





" dc 


4 


; sub -band 0 




V dc 


:*. 


; sub- band 1 




" "dc 


3. 


; sub-band 2 




,""dc 


3 


; siib-band 3 




dc 


-3 - 


. ; sub -band 4 




dc 


3 ■ 


; sub-band 5 




dc 


• '3- . 


; sub -band 6 




: dC 


' :*3" ■■ 


; sub -band 7 


;end 


table 


3-B.2C 




. dc 


3 


; sub-band 8' 




..' : dc 


3 


; sub- band 9 . 




. dc 


... 3 


; sub- band 10 




: dc 


.'3 • - 


; sub -band 11 . 


; end 


table 


3-B.2d 


. . . ; sub - band 12 . 


dc 


. " .3 




-dc 


■' 3- • 


; sub -band 13 




* : dc 


■ "3' ; ' : . ■ : . 


. ; sub -band 14 




dc 


-'3 


; sub-band 15 




. dc 


• - . 3 . 


. . ; sub-band 16 




• dc 


. 3 


; sub-band 17 




dc 


. . 3 .- 


: ; sub-band IB; 




dc 


3 ' 


... ; sub-band .19 




,■ .dc 


:.3'". 


; ; sub -band 20 
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3C " 


3 


dc 


• 3 


dc 


■■-3 


dc 


3 


dc 


3 


dc 


3 


dc 


3 


dc i 


3 


dc ■ . 


3 


dc: \ 


3 


dc • 


3 



• -61 - • 

,-suD-oana *± 
; sub-band 22 
; sub- band 
; sub-band 
; sub-band 25 
; sub-band 26 
; sub -band 
; sub -band 
; sub -band 
sub -band 
; sub -band 



23 
24 



27 
28 
29 
30 
31 



'; Low sampli 
skfcbl 3 



■g' races 



An ' ■ • 


A 

• *k . • 


r\r* " 


A 

H 


'-' . *r> " ' 




• dc 


4- 


cc 


3 ' 


cc 


. 3 • 


• dc 


3 


. •• . dc 


3 


. dc . 


3 


dc , 


3 


dc 


3 


••' dc • " 


2 


••• dc ■ • 


■2 


. dc 


2 


. dc 


2 


dc - , 


2 


■ dc' 


2 


dc 


2 '. 


• ' dc 


2 


dc 


2 


dc 


2- 


.dc 


2 


dc 


2 


" dc ■ 


2 


• dc ■ 


2 


•'dc-'- 


2 


■'. dc -. 


2 


dc 


2 


: ' dc ' 


, 2 


• dc 


2 . 


end cable 3*5. 


■ • • 


" . dc ' 


~2 


dC • ; 


* 



; sub -band 0 

; sub-band 1, 

,* sub - band 2 

; sub-band 3 



; sub -band 4 
; sub -band 5 
; sub -band 6 
; sub -band ? 
; sub -band 8 
; sub -band 9 
; sub -band 



10 



11 . 
12 
13 
14 
15 
16 
17, 
16 



; sub -band 
; sub -band 
; sub -band 
sub - band 
; sub -band 
; sub -band 
; sub -band 
; sub- band 
.sub -band 19 
; sub- band 2 C 
; sub- band 21 
; sub -band 12 
; sub-band 23 
; sub-band 24 
; sub-band 2 5 
; sub -band 26 
; sub -band 27 
; sub-band 28 
; sub -band 29 

; sub -band 30 
,* sub -band 31 



endge: 



,bal_xhe - 
endsec 

. org 



phe: 



; initialize 

; .. a. ri. with start of subband allocation table of bits in. frame per sub-band 
; b.nO cffset for right channel sub-band bit allocation values: 
;.. : left channel froa 0 to (NUMSUBBANDS - 1} 
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; right channel from NUMSU3 BANDS to < (2 * NUMSUB BANTS: 
1 -3 9 »-*vrth icm: stereo sub-band boundary fcr stereo- 
. V " *■ "*4 T4-3U. 8 <8-31)'. 12 (12-31i. or 16 (16-31) " 



r.tensity : 



getbal 



move - x:skftbl,rl 
move #masktbl.r2 

move ■ . • 8NUMSUBBAOTS . nO ' 
move y : < s i bound , r 3 • .- 
move x:crcbits.r5 



.•offset' for right "channel: 

;decr stereo intens sub-band ctr 

.-get CRC-16 bit. counter ... / 



•loon -h-ough the sub-bands extracting the left and right, tif applicable* 
'b ; - a^'oca-icn index values !y:<maxsubs - fixed count of sub-bands framed): 

■ a" 'or cu-rent sub-band get the number. of bits for allocation index value /; 

■ '* and increment address of : the next sub -band bit count ;. . 
' ' oe- -he bit allocation for the left channel always 

b register isolate the type of frame: full stereo, jcint. stereo or mone- 
ys holds the mono frame type code for .testing - 

holds the joint stereo frame type code for testing - 
see if the frame type is joint stereo and just in case, move the . 
current stereo intensity sub-band boundary counter value for testing 
"'if 'net" joint stereo, see if this is a mono frame type 

"if it is joint stereo: ' ' " . ■' 

• tes- -he boundary counter has reached zero . and.;,us: m case.it has, 
-estore the left channel bit allocation value to the al register . . 
2 ^* the counter is zero, go to copy left channel into the • right channel-- 
3-* i* no- go to extract the- full stereo right channel allocation value:-, 



o. 
c, 
d . 
e . 



do ■ y : <maxsubs /_getb_4 0 . 

move x: (rl>*.n4 ... 

; move " n4, n2. 

move n4 , n5 
" j s'r ' egetvalue 

move , y:ir2+n2),xl 

move tr5/ *n5 ... 

and. xl,a . y :<f rmtype.b. 

move al,x: lr0> . 

move . #>MONO.yC 

move 1* > JOINT_STER£0 , y 1 

crop yl#b r3 , a . ; • 

jne ■ < getb_10 • 

tst a x: (rO) ,al 

jeq ' < _9*tb_30 

move . ( r3.) - 



;get # of bits to read. 

;get hi order bit mask index - 

;to accumulate CRC-16 bits . 

.•get a left chan bit allocation 

; mask for high order one's.. 

;accum bits for CRC-16. rtn 

.-mask off high order one's 

; & set for frame type compare 

;set left : channel 

;ck for no right -channel-.- ; 

,*ck for intensity sub- band 

; check for stereo intensity 

;if not. see if mono 

.•reached bound, restore left val 

;yes. left val to right val/- 

.-no. deer intens sub -band cr.zr 

.-..and retreive right chah value. 



:est 

fcr 
if it 
sthe 



'or a mono type of frame and just in case it is., set a! 
"insertion into the right channel for consistency 

s mono. 00 to move the right channel value 
irwise. fall through to full stereo 



:o .zero 



_getb_lC 



cmp 
jeq 



yO.b #0,al 
<_getb_30 



; if mono,.' insert 0 for righ: 



Ifuli- sterec. extract, the /right ' channel bit allocation value 
lgetb_20 



jsr .<getvalue 



; get a right ".chan- bit ' al location 
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move 
move 
and 



y: (r2*n2> ( xl 
(r5)*nS. 
;xl,a - 



jinserr the right channel value (nO of f sec) 
.; increment for the next sub-band ■ 



lgetb_30 



move 
move 



al.x: (rO^nO) 
(r0) + 



; mask for high order one's'. 
: accum bits for CRC-1S rtr. 
.-mask off high order' one's 



.-right channel sub- band alloc 
. ; incr for. next sub -band 



getb 40 . 

; ' data in' them. 



clr 

move 

sub 

do '.' 

move 

move 



_getb_50 



move, 
rts 



.a ' # >NUMSUBBANDS , b 

y : <maxsubs, xO 
x0,b . 

b. getb_5iDV 
a,x: (r0"n0) . 
a,x: (rO) - 



r5,x:crcbits 



; current MAXS UB BANDS 
;equals unused sub -bands / 

right channel 
;left chan > incr fcr next 



; store update.dvCRC-16 bit .. counter. 
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.opt fc, cex.mex \ 

; (c) 1995! Copyright Corporate . Computer. Systems , .Inc All rights reserved. 
; \DGCST\getdata. asm: moves to high. 5 -Memory 

-title •-" 'Get the Data' ' 
; This routine. sets the data. in the output buffer 

; cn entry '.■'.'.<'' 

. r3 » address of left & right channel SubBandlndex array (x memory! . 
; . r2 - address of left & right channel SubBandSKFs array : (x memory)' 

rl ■ addr of buffer for a set of left and right, channel recovered data 
(132 samples: one group of 3 samples, 32 subbands, 2 channels) 
; . y : <maxsubs * MAXSUBBANDS at sampling rate and bit. rate . 

y:AllwAdd • address .of the proper Allowed table at sample/bir rates . 
. y:frmtype • whether full stereo, joint stereo or mon frame 
ytsibound > if joint stereo,., sub -band boundary for stereo intensity 
. shared memory for rsynth . / . ■ ; 

;. on exit ; :*' 





a - 


• destroyed 




b = 


. destroyed 




. xO 


■ destroyed 




xl 


» destroyed 




yo 


- destroyed 


* ■ 


yi 


» destroyed 




rO 


* destroyed 




rl 


« destroyed 




r2 


■ destroyed 




r3 


« destroyed 




' ■ r4 


- destroyed 




r5 


a destroyed 




• nO 


= destroyed 




nl 


« destroyed 




- . n2 


- destroyed 


1 


n3 


m destroyed 


i 


n4 


- destroyed 


' i 


. n5 


■ destroyed 



include 'def.asm' 

include V. . \rmicro\get value. mac' 

section highmisc. 
xdef NBits . ' 
xdef •' CC 
xdef . '• DD 
xdef pacxmax 
xdef . ' packrpl , 



org 

stgetdata_xhe 
NBits 



xhe: 



dc 


0 


dc 


2 


dc 


3 


dc 


. "...3 


dc 


4 



;position - 0, place holder 
; position » 1 . 
;position * 2 . •/ 
; position » .3; . 
.•position «. 4 • " 
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dc 



4- 



; posit icr. 



5 



dc 


5' 


; posit ion 


• 


6 : 


dc \ 


■• 6\" y- " ' 


' ; posit ion 


m 


7 


dc 


7 . ■ ■.■ ' 


; posit ion. 




8 


dc 


• 8 


. ; position 


8 


9 


dc 


..9 . : •" 


. - .-position 




10 


dc 


• 10 '• ■ r ■ 


; position 




11 


dc * 


: ' n . ■: ■■' 


.•position . 


m 


12 


dc 


12 


; posit ion 


a ' 


13 


dc 


13 " " : : " 


; posit ion 


m 


14 


dc * " 


14- ■.-■*-' 


. /position 


m 


15 


dc ' 


•15 


'. .-position 




16 


dc-"- 


'." 16 


-• " . ; posi t ion 


m 


17 



dc.. 0 . . . .-position 0. place holder 

dc $555555 . ; ; 4> 0/ i3 .0*2 . 0 r position I */ 

dc $666666 • . ;. 8.0/(5;0*2.0) position 2 */. 

dc S492492 ; 8.0/(7.0*2.0) position 3 */ 

dc - S71C71C 16.0/(9.0*2.0) position 4 */ . 

dc S444444 16.0/(15.0*2.0) position .5 *,' 

dc. ' S421084 . ; 32.0/(31.0*2.0) position 6 */ 

dc . $410410 ; 64.0/(63.0*2.0) position 7.*/ 

dc . $408102 ;.; 128.0/(127.0*2.0) position 8 */.. 

dc 1 S4 04040 ; 256.0/(255.0*2.0) position 9 

dc $402010 ; 512.0/(511.0*2.0) position 10 */ 

dc . $401004 . .. ; .1024.0/(1023.0*2.0) position 11 */ 

dc ' $400801. ,; 2048.0/(2047.0*2.0) position 12 */ 

dc $400400 : . ; 4096.0/(4095^0*2.0) position 13 */ 

dc $400200 ; 8192:0/(8191.0*2.0) position 14 */ ' 

dc $400100 16384.0/(16383.0*2.0) position 15'*/'. 

dc $400080 ; 32768.0/(32767.0*2.0) position 16 .*/ 

dc : $400040. ; 65536.0/(65535.0*2.0) position 17 */ 



. <3c $000000 V ; position 0, place holder . 

dc scooooo ; position. 1/ . soooooo-i . o * / 

dc ' ScOOOOO . ,; position 2, .5000000-1.0 */ . 

dc ■". ' $a00000 ; position 3, .2500000-1.0 ♦/. 

dc $c00000 : ; position 4 , . 5000000-1 . 0 */ . 

dc * ; ; $900000 .. . ; position 5 1250000- 1 . 0 */. 

. dc $880000 ; position 6/. .0625000-1. 0 */ 

dc ■ $840000 : . ; position -7;. .0312500-1.0 */ 

dc $820000 ;. position 8, .0015625-1.0. */ 

dc. . $810000 . - ; position 9, .0007812-1.0 */ 

dc $808000 position 10 , ; 0003906-1 . 0 */ 

dc $804000 - ; position 11. .0001953-1.0 */ . . 

-dc $802000 .^position 12, ".0000976-1.0 .*/ 

dc: . S801000 . . ; position 13. ,.0000488-1.0.*/ 

dc $800800 ; position. 14 , . 0000244-1 . 0 */ 

dc .$800400 position. 15.. -.0000122-1 ; 0.'*/ 

dc $800200 . #• position 16. .0000061-1.0 */ 

\ dc $800100 .. v ;: position 17, .0000030-1.0 */ 




4 
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- - — , - - — " 


' . 4 • 


728 . 364 . 


packmax dc 




packrpl. dc 


i . 


endge t da c a_xhe 




endsec 




section 


lowmxsc 


xdef ... 


av 


- . xdef- 


bv 


xder 


cv • 


j _ * 

.. xae: • 


bandcnt _ - 


- xdef ' 


block . 


. xdef . 


svereg" 


xdef -.. 


dvalue, cvalue 


• ' • . ■ org 


yli:'- 


stgetdata_yli"' 




av . ds' •- 


,1 


bv ds. - 


l . 


cv' ■ ds . 


■i 


bandcht ds 


i ' 


block ds 


l' 


syereg ds 


•i. 


dvalue ds 


l v 


cvalue ds . 


l. 


endgetdata_yli 




endsec 




section 


highmisc 


■ xdef * - 


ivdata; 


xdef 


ASMDadd 


• xdef - . 


SKFaddr 


-xdef - . 


INXaddr . 


xdef 


AllwAad. 


xdef 


Allow 


xdef 


getdataN4Save 


xdef 


bereich 


xdef 


shftbl 


org * - 


yhe: 


stgetdata_yhe 




ivdata ' • ds 


l . ■* ■ ■ • 


ASMDadd ds > 


1- - : - ; : ' 


SKFaddr ds 


■i : .• " ■■ 1 ■■ ■■ 


INXaddr ds , 


i - ' : 


; AllwAdd ds .. . 


1 " - - ■';'*•'■ 


Allow . ds "-. 




getdataN4Save. 


•ds;. ; ' i • 


■' " include 


' . . YcbmmonN be 


shftbl 'v*. : 




• dc v 


$000000. ' 



-66- 

438. - 



21.9 



;A value af ter uppacking 
;B value after uppacking 
;C value after uppacking 
;incr sub-band for stereo intensity. 

■.■block no 0:0-3; 1:4-7. ... 2:8-11 . 
; save a register value 
; hold current DValue . : : : . 
; hold current CValue ' 



; left & right channel recovered data 

;A start addr shared mem for samples .. 

.-starting addr for SKF' s 

/starting addr for SBIndx's . 

;save addr of applicable Allowed table 

; current address in Allowed for sb 



; bits'- -.0, -place holder 
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dc 


■ S400000, . 


.•bits 




1 * 


shift 


left 


23 


bits 


dc 


S200000 . • 


. .-bits 


m 


■ 2, : 


shift " 


left 


22 


bits. 


dc 


5100000 . 






£ , 


sniii 


iet » 


21. 


DltS 


dc 


' $080000 .; .\ 


;birs 


m ' 


4, 


shift 


left- 


20 


bits 


dc , 


$040000 * ; 


■ ;bits 


m 


5/ 


shift 


left 


19 


.bits 


dc 


$020000: 


;bits 


B 


' 6, 


shift 


left 


18 


bits 


dc 


. soioooo / 


;bits 


s 


• 7 , 


: shift 


left 


17 


bits 


•dc .. 


• $008000 . - , * . 


'.■ ;bits 


'«■ 


8, 


shift 


left 


16 


bits 


dc V 


S004000 ; 


• ;bits 


m 


• ' 9 , 


shift 


left 


15 


bits 


dc - 


' . $002000 


.'. ;birs 




ioV 


shift 


.left 


14 


bits 


dc. 


sooiooo'. \> 7 


" ;bits 


a ' 


ii. 


"shift 


left 


13 


bits 


dc- • 


/ soooboo 


-;bits 




12/ 


shift 


left 


12 


bits 


dc 


$000400 


, ' ;birs 


_ m' 


13/ 


shift 


left 


11 


bits 


dc 


$000200 . 


;birs 


m 


14, 


shift 


left 


"10 


bits 


dc 


S000100 


. . ;birs 


m 


15, 


shift 


left 


C9 


bits 


dc 


$000080 


;bitS 


m . 


16. 


shift 


left 


08 


bits 



endgetdata_yhe 
endsec 



org 



gee data 



move 
move 
move 



phe: 

r2,y:SKFaddr 
r3,y:INXaddr 
rl,y:ASMDadd 



move #0,r0 



;save start address . 

; save starr address 

; save starr addr ivquant; values 

; scarr ' group number 



./loop through the 12 groups of , 3 . samples per sub-band per channel . 
; advancing rhrough 36 samples "' . 
; ser-up for rhe group: 

1. set starting address for inverse quantized values . . 
; 2. reser.rhe starring address of the Allowed sub -band bits 
\ 3. determine the SKF facror grouping . . 

; 4. ser up for joint stereo sub -band intensity boundary checking: 
do 



. #MJMPERSTJBBAND,_getd_90 

; set up for nexr. group of' samples: 

.move; y:ASMpadd,rl 
move rl,y:ivdara 
move y:INXaddr,r3 
move. ■ • y :SKFaddr,r2 . 
' ■ move • . y :AllwAdd, r5 
move.. '/ r5,y :Allow , 

;ser which block of SKFs (scale facror indices) 

. ; ; - 0 for group of 4 - samples. 0-3. 

/. 1 for group of 4 samples 4-7 . /. 

■ 2 for group of 4 samples .8-11 



;reser srart recover data addr 
;init recovered data curr addr 
reset SBIhdx prr . 
;reser srart SKF address 
/reset address of allowed 
;and save 



move 
move 

cmp . 

move 
cmp 



r0,x0 

■#>4,b\ .. 
x0,b #C,yl 
<_gerd_06 ■ 



•xCb 



#>i,yi 



; curr group ro rest 
;block [0] groups 0 - 3 

; block [i] groups 4. - 7- 
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move 



_getd_06 



move 
move 



<_getd_0S 
t*>2,yl 



(rO)*. 

yl f y :,<block • 



;block [2] groups B * -.' 11 



; increment the group r.umber ■ 
;saye which block [2. 1 :r 21 



.-set-up for ;oint stereo sub-band intensity control 



move y : <sibound, nO 
move • n© , y : < bander* t 



; joint stereo intensity sub-band- 
•bound sub -band decremented cnt" 



r.y,y:<oanuc.»*. , — » - - — r , " • • 

bclr- #J0INT_at_S3_B0UND. y:<ct If lgs ; clear reached .intensity, suo- Dana 

•process this collection of three samples per sub-band per channel 
■"."dc" ' #NUMS"JBBANDS,^getd^8C 



move " • y : ivdata .rl'- 

move #C , n3 

bclr. #LEFT_vs_RIGKT, y : <ctlf igs 

move . y:<block,r.2 . 



; left channel block ist • 
;left channel SBIndx values 
; ini'dcate working or." left .chan •' 
; which, block cf SKFs 



; process left channel' and .then right channel for. current sub-band 
do '«NUMCHANNELS..getdj75 



move . KNUMSUBBANDS.nl 

move ' x: (r3+n3) . n5 

move . y: Allow, r5 

move . 8DD,r4 

move x: irS+nSi .n5 

move r * 5 » a 

" tst ■ a . . nS , n4.; 

jeq • ' <_getd_60_ 

move ■ #CC, r'5 

move . x: ir4*ri4) ,xl- 

move x: irS+n5) . xO 

move xl,y:<dvalue ' 

move xO,y:<cvalue V 

'move '■ • #NBits,r5 

move .• -#.>l.yl - 

move x : ( r5+n5 ) . n4 

move x:(r2+n2i,n5 

move fcbereich, rS 



; spaced by number of subbarids - . 

; SubBandlndex [SubBand] . 

;get the address of AllowediSE] 

.•address of the D table 

; get position for the subband 

; save the position 

.-check position -« 0 AND 

; set position for DValue fetch 

,-not transmitted 

; address of the C table 

; DValue ' 

;CValue. 

; save DValue 

;save CValue . 

; address of NBits array 

.;to test for packed pos 1 below. 

;nbits 

■.-SKFIndextSubBahd] [block] ■-, 
;SKF table address . . 



.-now, if doing the left '^.nei .continue w £h extracting aat a ^ . 
..•otherwise., check for joint stereo ^ d ^ins*?v boundary reached. 
,,.if right channel joint stereo ^^-^-^^y.f^lL*;^.-. . 

• •''•'= t . t --„..8'3l-- v<ctlfios, : getd lo' .-clear if icing on -« it >- f^i: 
.«i:^Iat!iti^:y-=t:f.Igs..ietd.50. .-reached bo-no. «-ri?h- 



jclr 
^set. 
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_getd_i: 



a. set up for extracting, the data values . / ■ 

b. test the position for packed types • ipositions : - . 2 , 3 or. 4) 



move 
.- move 
•. . move 

. move 

crop 

• j«q. '■ 

. CTTp ' 

■' 'jeq , 
' ■ -ctr.p 

jeq • 
-ctrp 



#tbl,r4 . : 
' n4 ,n0 ; • .'/•. 
y : esc , b • 
y : <curwd,y0 . 
yl,a »>2,yl 

< getd 20 
yl,a ; "~ #>4.yl 

< getd 30 
yi.a ~.#>3..y-. 

•■ <_getd_4 0 
yl. a ~ 
<_getd_12 



•get shift table address 
■ ; save- nbits 

;get the shift. 'count . 

•get current frame word; 

.•check position 1 

■handle pos 1 with 3 packed values 

.•check position --' 2 ' 

,* handle pos 2 with 3 packed values 

;check position • » 4 

;hahdle"pos 4 with; 3, packed values. 

;check position.-- 3 , and if. not, 

; handle all other pos. as unpacked. 



'! fC If P ^Sressed mode/ handle allocation as a packed value . V \ 

\ Srwise, handle as ISO. standard unpacked. set of 3 yalues; . : 

\ \jset *DECOMPRES£_?ACKED/y:cctlfigs:_getd_35 
_getd_12 ; . ' : . •* ■ • ~ .-' ' \ ' / 

.- - not position.:/ 2 or. 4 so just'a regular input of 3 adjacent data values 
■ move y: (r4*n4) .xC . , ^ shif t . lef t multiplier; per bit 

■ ; extract. the 1st value. and save' it in y:<av ." 
; mpy \ xCyO.a n4.xi : 



.sub " xl.S ' a0.y:<curwd 

move . b,y :<sc . 

; let's try, a macro ■ 

-■-.'• jge ■ ' <_ getd — 16 
. getnextword 10,15 



shift extracted bits into al witn 
newly shifted curwd in aC 
& save passed numb bits required 
see if next. word need to complete 

& save newly shif ted . curwd . 
save new shift count ' : 



value 



_getd_16 



move' 



al, y : <av 



; save 1st for inverse cuan: 



extract the '. 2nd value and save it in y: <bv. 



move ' . \y:<curvd.y0 ; •■ 
move y: ir4+n4)\xC . 
mpy xO,yC,a n4 ,xl . 

• sub • ' xi.'b";-. aO,y:<curwd 
' move- .. b,y:<sc . 



; get current frame word. 
; get shift left multiplier per bit 
; shif t extracted bits into al with 
; . newly shifted curwd in aO 
* & save passed numb bits required 
' ; see if next word need to complete 
; . & save newly shif ted curwd 
isave new shift count' 



vaiue 



; let's try a macro 
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jge <_getd_18. 
ae tnext word 20.25 



getd_i8 

noye al.y:<bv .save 2nd for inverse quant 

extract the 3rd value and save it. in y*<cv - 



move... y:<curwd.y0 
move. . :y: (r4*n4I .x0. 
;mpy xCyO.a n4,xl 



cnt 



sub 


xl . b. . aO , y : < curwd 


move 


' b, y : <sc 


jslt . 


<getnextword , 


move 


: al.y : <cv 




<_getd_5C 



;get current, frame word. '. 
-.-get shift left multiplier per bit 

; shift extracted bits/into al with 

; . newly shifted curwd in aO 
. ; k save passed numb bits required 

;see if next word need: to. complete ;value 

; & save newly shifted curwd " : 

.•save new. shift count 

;yes.; get rest from next- i/p frame 



war a ■. 



; save 3rd for inverse quant. 
;go to do inverse quantizing 

Pos 1: Three adjacent data values are packed intc 5 bits. 
\ Each of the* data values are only 2 bits wide. 

packed_valiie - valueO * 9 - valuel * 3 * value2 



packed_value « 3 • tvalueo; * 3 + valuel) ♦ value2 



B getd_2C 



move . #>26 . xO 
move ■ #>13,xl- 
move . #MASKU?ACK3 , n4 



;ISO maximum packed value 
;IS0 replacement value 
7 unpack getvalue mask. 



if compressed., switch to compressed mask 



iclr 
move 
move 
move 



*DECOMPRESS_PACKED . y : c ct 1 f Igs , _get d_2 : 



_getd_2: 



move 

move 

move 

move . 

move 

move. 

move 

move ../ 

move 

move 

move 

move 



*>14 .xO 
#MASKUPACX3X,n4 



n4 f y : <av 

#36, n4 
. n4 ;y : <bv . 
' 39, n4 

n4 ,y : <cv 

*12,n4 , 

ri4 . y :<crcstrt 
. *3,n4 '-. 

n4 , y :<svereg 
. #3,n4 

n4 ,y:<not appl 
: #5,n4. " . 



; CCS compression maximum packed value 
;CCS compression replacement value 
.-compressed unpack getvalue. mask - 



; save in y : < a value for hew 
.•unpack initial -divisor ... 
.-save in y:<bvalue for how . 
/unpack initial multiplier 
;save in y:<cvalue fcr now 
.•unpack second divisor : 
.•save in y:<crcstrt for now 
.•unpack second multiplier . 
.•save in y : <svereg . f or how 
; unpack loop counter . 
.-save in y : <not_appl: f cr now 
.•change. to packed values nbits 



if compressed, switch to. compressed nbits 



*DECOKPRESS_PACKZr/y:<ctlf lgs,_getd_22 * 

«4* ( n4, ; change, to compress packed -values. 



_getd_22 
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Pos 2: Three adjacent data values are packed into 7 bits. 
Each of the data values are only 3 bits, wide.' 



packed_value « valueO. */25 valuer * S value2 

~ _ -or : .; 

packed_value » 5 * (valueO ♦ 5*valuei; + vaiue2 



_getd_30 



move. .#>12.4,x0 
move **>62.xl 
move #MASKUPACK5.n4 



; ISO maximum packed value 
;ISO replacement value 
; unpack getvalue mask 



if compressed., switch to compressed mask 



jclr 
move 
move 
move 



*DECOMPRESS_ PACKED . y : cct i f lgs. , _ge td_3 1 



_getd_3] 



move 
move 
move 
move 
move 
move 
move 
move 
.move 
move 
move 
, move 



*>62,x0 
tt>31,xl 

#MA£KUPACK3X.n4 



n4 , y : <av 

*200.n4 

n4, y :<bv ■' " ■* 
. *2S, n4 • 

n4,y:<cv 
"*40,n4 

n4,y:<crcstrt 
#5.n4 . . 
n4,y:<svereg 
#4.n4 

n4,y:<not appl 
-#7,n4 ~ . 



;CCS compression maximum packed value 
;CCS compression replacement value 
; compressed .unpack getvalue mask 



;save in. y: <avalue.for now 
..•unpack initial, divisor . 
;save in y:<bvalue for now 
;unpack initial multiplier • 
;save in y:<cvalue for now 
; unpack second divisor 
;save in y:<crcstrt for now 
; unpack second multiplier . 
;save in y:<svereg for now 
; unpack loop counter ; 
;save in y:<not_appl for now 
; change . to packed values nbits 



if compressed, switch . to . compressed 'nbits. 



_getd_32 



jClr: ' ..#OECOMPRESS_PACKED,y:<ctlflgs;_getd_3 2 

move^, ,#€.n4 .; change to compress packed values nbits 

jmp ■ . <_getd_45 ; 



.Compressed "pos 3: 

Three adjacent data values are packed, into 8 bits. 
Each of the data values are only .3 bits wide.. 

. packedjvalue - valueO *-"64/* valuel * .8 * value2 ' • 

. packedjvalue - 8 * (valueO ♦ 8 * valuelV + value2 



_getd_35 



move. . *>438 ,x0 

move '. *>219,xl 

move ■ &MASKUPACK8X, n4 . 
. move- . n4 . y : < a v 

move . #200 ,n4 - ; 
.move ■. ; n4,y:<bv ; • ' . 

move ■ . *25 , n4 

move *n4.y:<cv : 



.; CCS' compression maximum packed value 

;CCS compression replacement value 

;.unpack getvalue mask 

;save in . y : <avalue t or now 

.-unpack initial divisor 
..save in y:<bvalue fcr "now 
..-unpack initial' multiplier 

.•save m y:ecvalue fcr now 
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;unpacx second divisor 
isave in y : <crcstrt for now. 
; unpack second multiplier 
;save in'y:<svereg for now 
; unpack loop counter 
,*save in y:<not_appl for now 
; change to packed values. nbits 



Pos 4 ; Three adjacent data values are packed into 10 .bits . : 
/.. Each cf the data values are only 4 bits wide. ' . 

packed_value - valueO . * 81 ♦ valuel * 9 ♦ value2 " 

packedjvalue - 9 •■ ( value 0 * 5 +, valuel). > ^ value 2 



move 


'". #40,n4 


move 


' n4 , y : <crcstrt 


move 


*5,n4 


move .- 


n4 , y : <svereg; 


move 


#4.n4 


move 


. n4.y:<not appi 


move 


* #8,n4 


jrap . 


<_getd_4 5 . 



_getd_40 



; ISO maximum packed value . 

; ISO replacement value r 

; unpack getvalue mask 

;save in y:<avalue for now 

; unpack initial divisor . 

; save in y ; <bvalue for " now 

; unpack initial multiplier 

;save in y:<cvalue for now 

/unpack second divisor 

.save in y:<crcstrt for now 

; unpack second multiplier 

; save in y:<svereg for now 

,-unpack loop counter 

;save in y*.<not_appl for now 

.change to. packed values nbits , 



rhandle the data value extraction from the frame and unpack for 
.-either position 1, 2. 3 (if compressed) or 4. • 



move 


, #>728,x0 '- 


move 


- #>364,xl 


move 


&MASKUPACX9 , n4 


move 


n4 . y : <av 


move 


#1296 ,n4 -. 


.move 


n4 , y.-<bv 


move . 


#81. n4 


move 


n4,y:<cv 


- move , 


/ #144 ,n4 


move 


n4 ,y Kcrcstrt." 


move 


. . #9,n4 


move 


n4.y:<svereg 


move - 


#5.n4. - . 


move 


• n4.y:<not appl 


move 


#!C.n4. ' ' " 


nop-. 





_getd_45 



move 
move 
move 

jclr 
move. 



xO , x:packmax 
xl . x:packrpl 
y : tr4*n4> ,x0 



;save position max packed value 
; save position replacement-, value .' • 
;get shift left multiplier per bit cnt 



_getd_46 



mpy. 



•sub .. 

move 
• jslt - 

move 
and ' " 
move 



#DECOMPRESS_PACKED , y : <ct If Igs , _getd_4 6 
n4.y:getdataN4Save .save the bit field size 

xC.yO, a" n4-,xl 



xl/b a0.y:<curwd 
b. y :<sc 

< get next word . 

y : <av,xl 

xl.a . ' 

al,a . 



; shift extracted bits into al with 
';. ■ ... newly shifted- curwd .in a6 
; & save- passed numb bits required . 
'.-.see if next word need to complete value' 
; & save newly shifted curwd 
;save new shift count 

;yes, get rest from next i/p frame word % 

; unpack getvalue mask 
•mask off high. order one' s 
; clean up 



;test for a. possible bit error that might, have caused a value, above 
; max i mux packed value 



:he' 
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rif above maximum, replace with the middle value 



.move 
move , 



x:packmax, xl 
xl,a . 
<_getd_47. 
x:packrpl.a . 



;get . poisition max packed dvalue 
; compare retrieved value to max 
;if net above max value, continue 
.•since above. • replace value 



_getd_4"7 



jelr 
move 
move 
jsr 



#DECOMPRESS PACKED. y : <Ctl figs , _getd_4 8 

ygetdataN4Save,r4 /restore the bit field size 

an4' • . ;set compressed value for table look up 

<dcompval • • ;get the decompressed value for. unpack 



_getd_48 



jsr. 
move 



<unpack 
n0,n4 



;get 3 parts ,.' 
.•restore nbits 



;now let's inverse quantize the 3 samples 
■' getd 50 

" move #shftbl,.r4 

move y :<av,y0 

move y: <r4^n4) .yl .:■ ; 

tfr . ' yi.b ' 

move y: (r5+n5) ,b0 

Vivquanti 1st. value 

mpy y0,yl/a . 



move 
add 

move 
mpy 

move 
mpyr 

asl 



a0,a . 
xl,a 

al,y0 
x0 , y 0 , a 

a,yl ■ 
. y0,yl,a 



;iyquanti 2nd value: 



mpy 


,yo,yi,a 


move 


aO.a 


add 


xl . a. 


move . 


. al.yo 


mpy 


-' xO.yO. a 


move . 


a,yl 


mpyr 


y0,yl,a 


asl 





y:<dvalue, xl 

y : <cvalue,xO 

b0,y0 

bl.yl 
y :<bv,yO 

a;x: (rl).+nl 



b0,y0 - 

bl.,yl;- "■' • 
y:<cv,y0- 



; to left justify in ivquant: 
; save A value 
;get left shift value 
;save left shift in bl 
;get C factor 



;lst value: left justify bits 
; & set DValue ■ ... 
.-move rslt to correct register 
' ;Y + D . . 
; Sl set CValue '■ 
; forget sign extension 
;C * (Y + D) . 
;. & set up C factor 

; rnd scale factor *' C * (Y *.C' 
; & reget left shift value 
;mult by 2 again 
; & get B value. 



;2nd value: left justify bits . 
; & store 1st. data value 
; move rslt to correct register 
• ;Y- 0 
; forget sign extension .. - 

;C * (Y - D) : - . • : 

: r & reget C factor 

"Vrnd scale factor* C * (Y V- 0) 
• & reget left shift value 
,-mult by 2 again . . 
& get C value 



; ivquanti 3rd value: 

mpy ■ . y0.yl,a 



a,x: (rl) ♦nl 



; 3rd value: left justify; 
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move 

add 

move 

mpy. 


. aG.a' 

xl,a 
■ al.yO 

xO t yD,a 


b0 'Y° 


move . 


a.yl :'■ 

yO.yl.a 


#>i,yi 


asl 


• a y ;< 


bandcnt , b ' 


move 

jmp. 


: a,x:::l')+h: 
<_getd_70, 





.; '& 'score 2nd data. value 
;move rslt to correct register* 
;Y * D 

; forget sign extension 
;C * (Y * D) ■ 
. ? & reget C factor', 

; rnd scale factor • C * (Y • .a; 
:; & setup for intensity bounda: 
;mult by 2 again, & set up 
; to test . for intensity bounda 
.•store 3rd. data value . 
;try next channel 



All ' the 3 adjacer 
_getd_60 



clr . 

'move 
* rep 
: move 



values in the sub- band are 



y : <bandcnt ,b 



*>i.yi 
#NPERGROUP 
a.x: (rl) +nl 



"; output 0 value/ & setup 
; to test for intensity bounda 
; setup for intensity boundary . 



■ we have just finished the. current channel • ^ _ . 

i and we just did the. left, set up for the right channel ■ . 

I i* just Sid right channel, check for joint stereo and the • /. 

1 set-up for" the next sub -band; 

li r!ght cSaSnel . joint stereo sub-band intensity boundary reached. 
: aa sec-uD for the next sub-band. . , 

'•othlrwise. decrement the intensity boundary sub-bana counter • 
; before the go set-up ' for -the. next sub-band. ... 



• _getd_70 



jclr 

jclr. 

jset 

sub 

move 

jgt 

bset* 



•#LErr vs RIGKT^yVcctlflgs.^etd.72 ;if did left, go set-up righ: 
ttJOINT FRAMING. y : <ct If lgs , getd 72 ,;Continue if no. 3 0ir.w. 
KS-2i5^^ ;if reached, continue 

#wW r — - - . ■ nnr reached SO dec 

yi.b 

bl ,y :bandcnt 
•< getd 72. ■ 
*jO!NT_at_SB_BOUNi:,y:<ctlf lgs 



' 

;not reached so decrement ctr 
; and save for next sub -band 
;if not reached, continue, 
; if reached, set ' indicator 



; after the , left channel . set-up to, do the right- channel 



_getd_72 



move' 
move 
move . 
move 
"add; 

'bset 

move. 

move 



*mJMSUBBANDS*NPERGROUP , nl 

y : ivdata. rl - ' . "**' 

# >KUMSOTBANDS*NPERGROUP , a 

y:<bloclc.x0 •'. 
X 0,a • #NUMSUBBANDS,n3. ; . 

#LEFT vs_RIGHT.y:<ctlflgs 
trl)*nl. :■■ ' % 

al,n2 '•; 



; adj ; to right channel fields . 
;get current ' start address ' 
.•move to SKFs for right channel 
■ ; get current . block offset 
; add right, chan offset., set - 
; AND set adj. to right SBIndx 
; indicate now doint right 
; adjust rl to right rec data 
; of f set register 2 



We 



have just 
. adjust le 
increment 
. increment 
.. incremeh- 



Thl jtKwed aJrwy pointer to next sub-band 
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_getd_75 



move d>i,.xO -: 
■move . y:ivdata.a 
add : . x0,a (r3i * 
move. a,y:ivdata 
move -. .**> 16 ,X0 ■' 
move • y: Allow, a 
add xO.a #3 ,h2 
move . a, y: Allow 
move . . tr2) *n2 



_getd_8C 



samps 



;incr left and right rcv*d 
; address prev sub-band 
;adj next sub -band, incr SBIndx 
; save new addr next sub-band 
; ;adj Allow ptr to next sub-band 
,";get current Allow address 
;adj Allow ptr. adj SKFs by '3 • 
;save Allowed for next sub-band 
; next sub- band SKFs; addr 



;We have just finished a group of 3 samples per sub-band pei 
and we must send these value to the polysynthesis dsp 



channel 



move 
bcir 
jsr " 
move • 



_getd_9G 



bclr 
rts 



rO ,y : <svereg . 
#0,y :<not_appi 
<synth : -~ 
y : csvereg, rC 



#0,y: <not_appl. 



; save the key register * 
;clear. tested bit if not .applic 
; synch this group of values . 
.•restore, the key register 



; clear .tested bit if not appli; 
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(c) 1995. Copyright '.Corporate' Computer Systems; Inc. 'All' rights '.reserved. 

\DGCST\rsdecl6 .asm:, decoder Reed.Solomcn decoder 

" title 'RS Codec- 64714 decoding program' 
■* include .'box_ctl. asm' . 

include ' - . \ common \ioequ. asm' 
V' include ' rstest .asm' . 



; .this program will decode data in. the input buffer according 
; a-. decode, profile with format as follow; • 

;. - parity byte, message byte, repetition times -- first block 

; parity, byte, message byte, repetition times -r- .2nd block . 



■; . parity byte, message byte, repetition times,. 6" 
■ the output data will be placed at output buff er 



Last biock : 



'• section 
xdef 
xdef . 
' . ' xdef ; ■ 
xdef 
xdef 
xdef 
. xdef ; 
: xdef- 

org 

s t rde c X 6 _l_y he 
pbyte . ■"" — 
mbyte • • 
cbyte 
dbyte . 
inbyre 
mapbyte - 
RsR3Tntp 
RsLpCnt 
RsLpCntl ... 
endrdecl6_l_yhe 
endsec 



highmi'sc ' 
pbyte 
mbyte ';" 
cbyte 
•dbyte .; 
inbyte 
mapbyte 
RsR3Tmp 
RsLpCnt ■ 
RsLpCnt 1 

yhe: 

ds : : 
ds ■ - ■ *. 
ds : 
ds 

•ds . ■ 

ds 

ds ' 

ds.- 
ds ■:' 



; parity byte' 

,-message' byte 

; codeword byte 

; delay byte . 

,* insert zero byte 

;mess pari byte , . 

•tmp store r3 

;Rs Loop replacement 

;Rs Loop replacement 



* section' highmi'sc 
• • xdef ,■ PROF1 •. 

xdef CodeMinLen 

formula that cal the legency delay 
(P)parity. (M)message, delay, repetition- 
delay « (16MP+M) + P*P *-4*P +73) ,/ 8 - 



org yhe : 
strdeclS. 2 yhe 
PR0F1 " " 

"... dC: ■■• ; 15. 125, 1 



;RS profile 
; RS decode . 
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dc : 
■ dc - 
dc ■ 

CodeMinLen " 
dc 
dc 

' endrde c 1 6_2_yhe 
. endsec. 



.o,o,c 

0,0,0,0 



77- 



1,6. 6, 8, 10, 14,18,24, 30, 38,46 
56, 66,78, 90,104,118 <- 



;RS code .min length per block 
;t-0. 1,2; . . , 10 ' 
;t«ll.i2, . ..,.16-' * 



;********♦*******#**##*»••»•**##**♦ 

; RS decode routine. 

;.******• •.**•**** *?**•****•*******♦•• 



; This code is for RS decoder chip that the inout is always enabled 
; out output wi.l be enabled when we have the output coming 



on entry 

rl- 

.' r3' 
:-r6 

on exit 
■ " rl 
r2 
Vr3'- 
r4 
r5 
r6 

a 

b ' 
x0 

XI 

■ y 0 

yi . 



output ptr in X SPACE ' * ■ 
input profile ptr. in Y SPACE 
input data ptr in X SPACE 



destroyed 

destroyed, 

destroyed 

destroyed 

destroyed. 

destroyed 

destroyed 
destroyed 
destroyed 
destroyed 
destroyed 
destroyed 



■ or 9 

rsdecie 

; initial here 



pli: 



_Bentry 



move 


#-l'.m6 ' 


move 


#0,n6 . 


move 


#-l,ml. 


move 


■•■ #3-1, m2 


move . 


#-l.m5 . 


move 


#2,r2 


move 


#0,r5 7. 


move 


; #>24,x0 . 


move 


• .x0,y:rssc ; : . 


move : 


x:(r'6) + ,x0 - 


move 


\ x0 ,y trscurwd 


bclr 


" #:,'x:<<M_PCT 



,* reset reg r6 to linear 
' ; reset n6. to .0 

.-mod 3 --"'2, 1,0 '"■ 

,-set tc first byte 

; word . count . .■ ' -, 



rset for rsgetvalues. 



the tit clK 
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mbvep «53eC8 . x : <<M_BCR. 
. ; SOFTWARE RESET 



;sev iow to "zs m irhip sleet 
,-set y: for 8 wait state . .. 



clr- 
move 



. ; zero 

al f y:RSReg8 .-reset in case 

; wait fcr : some clock to pass away for the completeness cf reset 
**4 0C"i_resetch 

top . V ' • ; ; 

reseten 



do .. 
nop 



tiessage ..length and parity, length. 


from prof iie . 


clr . . 


a . / y : I r 3 ■ -,.xl v 


; parity ' 


move 


a,y : inbyte < 


; set no insert byte 


move - ■ 


xi.y':pbyte 


move 


y : (r3> -,al 




move = 


al, y: mbyte" 


; message 'length 


whether 


add. zero is needed 




move 


yrpbyte.al " 


;get parity byte 


lsr 


a"; 


;/2 


. move 


ItCodeMinLen, r4 • ■ 


:;get min ■■"code ien 


move 


a.n4 


';get T • 


. move. , 


y:mbyte,xl 


;get message byte len 


move 


y : (r4*n4) , a 


;get min len allowed 


cmp 


xl,a . "; . '-■ 




;ie . 


<_NoInsert 




sue 


xl,a ' • : . "' "■; • 




.move 


a.y : inbyte 


; store insert byte num 



_Nolnsert 

move . .y: inbyte, a 

move y: mbyte. xl . 

add : • , ' • xl ; a y : pbyte , xl 

add-" / xl.a 

; wr RS block length' 

- move" ai.,y :RSRegl 
move v al,y:mapbyte 1 ~ 

nove y: mbyte, a 
move ' #>1 . xl • 
'sub xl.a y:mbyte.xl 
' move' ■-■ \ al,y:cbyte ■ 



tne aeiay 

move 
mpy 
acve 

: lsr 
- add 
. Isl 
: -sl 

■ - add;. 



y.pbyte.xO 
xC , xO, a 
: aO.al - . 



a 

xO . a 

b v 
b :'■ . 
xC.c 



#>73.x: 

y : pbyte. b 
' al,x0. V' 
y :mapcyte ,al. . 



;get. inserted byte " 

; codewordleght»mbyte+pbyte* inbyte 
; cod ewordleght- mbyte ••-pbyte- inbyte 



;a4-0,a3«l only 40MH2 elk and CS and WR 
;save message * parity byte ... 

;get meaasge byte. 

;get message.- byre 

;save message , byte length; -1 : .* 



.; load xO 

;a «- p**2 

. 73 ■ 



4xp 
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/ .; . 7 - '■>•/-.' -79- • : " . /. • " ' ' . 

• 7-' ' '.- lsl- . • ' a . V ; X 16 / , 

: ■ 7 lsl- a 7 * : 

■'• * lsl". a - * . 7 

' ' lsl 7 a • ■ " bl, xO 

add •' xO,a -#>l,x0 7 I6x(m+p) - 

' "-lsr- '. a ' , ■ '7. _ ;./a ' • . ; .'• ' ' 

- ' -7-* ^ sr a '■" • * -7" ' ' ■ 7.; ■ .-'.-■ '-7:. 7 .' 

■ '. . 7 . . lsr . ' = a'; • " " ' . , , ' ' 7 ■■ 7 ; " .7. . * y 

' ; cal the' delay -7 ;7 •• >7 

■ -.7. sub 7 xl, a ■ y:pbyte,xl ;get p byte" 

7 sub xl,a y:inbyte,xl • V ; . ; get • insert ' byte'. 

7, ; • - sub . xl , a • ' * • 7 ' .. ' • ; 

move al,y:dbyte ; delay without output . reading 

move.- y:pbyie,al of bytes- .to be PARITY BYTES 

; Wr pari ty . length ; 7:7". / *• 

move.. al,y:RSReg2 "!/ ;a4s0.a3*l elk: CS/WR pulses are active 

• lsr. a '' ;/2 get correction power. 

; Wr correction power, t number . 7 .'"".7 

move ai,y:RSReg3 . ;a4=0, a3»l only reset pulse and cik 

■ move , #>32,al . ;set SYMBOL Synthesis of the RS codec ' 

; Wr' synthesis clock 

' move' al,y:RSReg6 ' 7 ; N at address 5.. 

move #>0,al ;set SYMBOL division 8 bit per symbol .-. • 

; ' Wr bit per symbol'" 

■;77 move al,y:RSReg7 .-. 7 ; address 6 

; reset again after all register have been filled. . 

- move #0,al 

move al,y:RSReg8 .' reset again 

;. wait for some time 

.7do #4 00._resetch2 /7 

*'■■"'.• nop : . ' ■.• "7 7 . 7 • 7 .*' 

■ _resetch2 ■ ;40 MHZ elk .is there- . 

bset •: #l,x:<<M_PCD ;tum off the bit; elk after reset- 7/7". 
•/ Initialization is completed 

, ' movep 8$0101,x:<<M_BCR . ,;set low duration. of "cs H < chip siect 

7; RS decoding start, : . 7 - 7 

...move ; y:(r3)+,x0. .7 "; load the repetition time. • 

move' xC,y :RsLpCnt ' . . \ -7- ' 

.-move ; ' r3,y:RsR3Tmp 7 ; '--7 .save r3 f or later' 
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_RsLoop 

; gee first, input byte 



move 
jsr 



#8.n4 

<rsge rvalues 



; or ' FRAME START SIGNAL and first byte- 

move #>$100,xl 
..'--or • ; xi.a •• 



. . do ■ #8,_dtasndl00 ' 
movep al,y:<<RSIN . .' 

^dtasndlOO". 

; input message-1 byte to decode . 

; clr . a y:cbyte,xO 
move xO,y:RsLpChti 



..-insert frame start signal / 
;The first DATA byte is "OR* ' gated 
;as the R-S codec thinks "you are-" 
;sehding r the first data byte at . 
,-the same time with the FRAME ... 
; start pulse. 

; SEND 1st data byte and also RAISE the 
; FRAME START PULSE 



; initial loop. count 



_RsLoopi 



dtasndl 



move . #8,n4 : 

jsr , <rsgetvalues 

do, .. #8,_dtasndl 

movep al,y:<<RSIN 



move y : RsLpCnt 1 , a 

move' ; #>l,x0 

sub xO.a 

jle . < EndRsLoopl 

move . aTy : RsLpCnt l 

: j mp <_RsLoopl 



;a4=l,a3«l only elk and data 

; test loop cnt : " 
;dec count . :-. 



; re save loop count 



_ EndRsLoopl 

• insert zero message byte . to decode, if it's not zero 



move 
tst ■ 
jeq 

. clr : 
move 



y:inbyte,a 

a. '■ ' . . . ' 

<_NoIntion i -• 

a y ;inbyte,xO 

x0,y: RsLpCnt 1 ; 



.;chk if insertion : is needed 



; initial loop count. 



_RsLoop2 



dtasnd3 



do 

movep 

move 
move 
sub 

jle . 
move 
clr :. 
jtnp . 



#8, dtasnd3 . 
al,y:<<RSIN 

y : RsLpCnt 1, a 
#>X,xO 

x0,a ••' 

. <_EndRsLoop2 
- a7y:RsLpCntl.- 

.a 

<_RsLoop2 



;a4«l,a3=l only elk and data 

;test loop cnt 
; dec count 



•re save, loop count 
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_EndRsLoop2. . 
. ^Nolntion- 
;' input parity byte to decode. 



". clr ••; 
-move 

_RsLoop3 
" ~" • • move 
• jsr 

■ do • , 
movep. 
_dtasnd5. 

move 
'.move " 
sub 

move 

_EndRsLoop3 



a . y:pbyte,xO 

. xO,y:RsLpCntl ■ 



r initial, loop count 



#B.n4 ■ . ■' 
<rsgetvalues . 
#8, dtasndS 
al # y:<<RSIN 

; y: RsLpCr.tl,a 
*>l,xQ 
x0,a 

<_EndRsLoop3 
' a,y:RsLpCntl 

<_RsLOOp3 



;a4»l,a3»l only elk and. data 

;test loop cnt- ; 
. ;dec count. 



push zero input for delay. byte 



• clr '■ 

' ... move 

RsLoop4 ; 

" do 

movep 

_GdatalQ0 

move 
move 
•sub 
jle 
move 
■ . clr 
jmp 

_EndRsLoop4 



a y:dbyte,xl 
xl,y:RsLpCntl 



*8,_GdatalO0 
al,y:«RSIN 

y:RsLpCntl,a 
#>l,xO • . • ' 
xo, a 

<_EndRsLoop4 
a,y:RsLpCntl 



<_RsLoop4 



reading decoded data output 



move 
move 
move; 



y :mbyte,xl 

#>$80,y0 

#>$8000,yl- 



move xl,y:RsLpCnti . 



RsLoopS 

. clr 
do / 
. movep 
_Gdata200 . 

move 
and-. ' 
move 



a : #>$ff,xO 
. #8, Gdata200 
al,y:<<RSIN . 

y:RSOOT,bl 
x0,b 
• bl.xO 



'.; re save , loop count 



: initial loop count 



;a4-l,a3«l only elk and data 

; test loop cnt ,. . 
;dec count 



;resave loop count 



test byte counter and put output by z 



; shift right 16 bits, 
shift right 8 bits 

; initial, lp count 



;a4«l,a3"l only elk and. data; 
;provide clock and read data _ 
; get .set; for .shift', 
to. right pos of .output . buff er. 
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move 
move 
cmp 

fst byte : 

mpy 
- . clr -. 
move 
and 
move 



JTndbyte 



cmp • 
jne . 

mpy.. 

clr 

move 

and-. . 

.or. - 

move 

jmp 



_Lstbyte 



clr ;. 
move .. 
and 
or ; 
move 



r2.a 
#>2,xl 

xl,a #>i,Xl 

< JTndbyte 



xO,yl,a #>$ff0000,x0 

b ■: 

aO.bl- 

xO.b . 

bl.x: (ri) ■ 

< EndAByte 



xl.a #0,xl ' ; 
<_Lstbyte 

xO,yC,a #>$ff00,x0 . 

b •' 

a0,bl 

x0,b ■'x:(rlJ,.xl 
xl.b • 
bl,x: (rl) . 
■ < EndAByte 



b -*■ - ■ . 
«>$££ ,bl ' 
. x0,b x: (rl) ,xl 
xl,b lrS) + 
bl.x: (rl)> 



•gee byte count 



; shift right 8' bits. 



; shift 'right;'.! 6 bits 



,-or it with previous. 8 bits 



;mask off last 8 bits/. 

; increase word count 

;save the musicam data for desort 



_EndA3yte 

move 
move 
move 
sub ' 
."• Die... 
move 
■'■ jwp: 
_EndRsLoop5 



' (r2>- . 

y :RsLpCntl,a 
. #>l,xO 

xO , a ; 
■ < EndRsLoop5 

a7y:RsLpCntl 

<_RsLoop5 ; 



■; 2 - ir 0 mod 
;.test loop cnt 
;dec count 



;resave loop count 



forget inserted zero message byte next 



... move 
-est • 
• • ^eq ' 

clr 
' move . 

RsLoop6 . ■ . 
: do 
.• movep 
_dtasnd20 

move - 
... move 
sub-:. 



y : inbyte /a 

a ■ . . 

< NoIntionlO 



y: inbyte ,x0 



xO,y:RsLpCntl 

88. dtasnd20 
al,y:«RSIN 

y:RsLpCntl,a 

a>i,xo. 
x0,a 

< EndRsLoop€ 



,-chx if insertion' is needed 



'; initial"" lp count ' 



;a4«i, a3»l oniy .dk and data 

. ;test loop cnt ■ 
;/ ;dec . count • 
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move 
' clr 
jmp 

_EndRsLoop6 



a. y :RsLpCr*tl 
a 

<_RsLOOp€ 



,-resave loop count 



_NoIntionl0 ■ . 

; forget parity output at • the end of 



clr 
. . move 

RsLoop7 

... do . 
' movep 
_Gdata300 . 
. ™ . . move 
move 
sub -* 

jie ; 

move 
clr 

_EndRsLoop7 

. move 
move 
sub 
• jle 
move 
jmp. 

; repetition end 
_RepEnd 

move 
nop 
move 
tst . 
j ne 



a yipbyte, xi 

. xl',y :RsLpCntl . 



#8, GdataSOO 
al,y:<cRSIN 



y:RsLpCntl,a 
#>l,x0 
x0, a 

<_EndRsLoop7 
a7y:RsLpCr.tl 
a 

. <_RsLoop7 ■ 



y : RsLpCnt , a 
#>i,xl 
xl , a 
<_RepEnd 
a7y :RsLpCnt 
<_RsLoop 



y:RsR3Tmp,r3 

y: (r3) ( a 

•a ■ 

<_Bexitry 



•frame ; 

••'.•initial, lp" count"" / 

:"■ ; a4=l , a.3»i only ' elk and -data 

test loop cnt" .-" - >'\ . 
;dec count.-. 

;resave iooo count 



; test loop cnt 
;dec count 



patch zero to make 96 (a full frame) 



move 

■ • move 

■ . sub 

. jle . 
do 

move 
Patchierol ; 



*>96,a 
r5,x0 . ... 
x0,a' #0,x0 
<_PatchZerol ... 
a,_PatchZerol 
xo7x:(rl)* 



end of RS decoding. for One Profile 



. move. . 
movep 

rts\ ■■■ 



#-l.,m2" 

#$0001,x:<<M_BCR 



rresave loop -count 



;reload profile ptr 

;test if a '0V at last RS block 



;inc to next frame 



;set all external io wait states 
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. opt'- . ■ ' . f c ' 
f : .(c)- 1995. Copyright Corporate Computer Systems ..Inc. All rights reserved.- 
; \DGCST\bitalloc.asm:. use the. o_psych parameter (safety margin) • 
; This routine is used to allocate the: bits. 

; It-, allocates at least some bits to all sub- bands 'with a positive SMR 
; It allocates in three phases:- . ; 

. A., allocate all sub-bands until- they are- all below 

: .the .Global Masking: Threshold (regardless as to how many 
7- . . bits it takes) . - - 

'■' : . note 1.. a limit (sub-band boundary) is set which requires . 

a11 sub -bands up to the boundary require at least 
index 1 be allocated even if the signal is already : 
.. -below the Global Masking Threshold. (This provides - 
; . . a noticeable improvement in continuity of sound) 

After Phase A is completed, a test is made to see if the bit poo 1 
; : 7 was overflowed by the allocation. ■ 

;.' '"■ a.' if the frame fits. Phase B is skipped and Phase C is done 

b.. otherwise. Phase B is required to selectively de-allocate "the" ■ 
; best sub-band candidates. 

; on entry .7 ' 7 7" ■ 

; '. y:<stereo « flags:. •■ 

; . (set on entry) bit 0 indicates whether or not left channel active . 

-. 0 -'channel not active - 
v . ' 1 " channel active for framing 

J . . bit 1 indicates whether or not center channel active 

0 « channel not active 7 

* .1 -channel active for framing 

■ bit 2 indicates whether, or not right channel active , 
C » channel not active 
» 1 • channel active for framing 

; ' bit 3. is used to indicate left vs . right channel 

applies if bit 4 set to 0 (NOT. center channel) . ■ 
;; 0 - looping through left channel arrays 

* ". . 1 « looping through right channel arrays 

.bit 4 is used to indicate center channel vs left right . 

0 - process left or right, channel arrays. 

1 • looping through center channel arrays 

. bit 5 is used as the FirstTime switch. in an allocation 
J .0 - cleared if any- allocations were made 

1 - ho allocations made to any sub-bands 
bit 6 is used for critical de-allocate and allocate passes: 
«* 7 with below, masking threshold being a criteria 

; . ■" de- allocate: 

; .0'-. select from any sub -band channel 

; *. .1 - select from only .those below mask . 

;7 allocate: ' • • 

. 0 - there are sub- band' channels not below mask • 
'1 - all sub-bands are below mask . 
; : bit 7 is used for critical de-allocate and allocate passes : 

■de-allocate: • 

; 7 '.. 0 « select from any sub -band channel 

* ; . 1 « select from those with 2 or more allocation 
; . 7 r allocate: 7: * 7 • ■• 

;•• '. ;/•. "7 , 0 »- are sub -bands not below hearing thresh . . 

V f ..1 • all -sub-bands are" below hearing thresh 

bit 8 is used for critical de-allocate and allocate casses-. 
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de-allocate: 

.0 - select from any sub -band channel' 
•1 - select from any sub-band channel 
allocate :. for final pass after bit allocation timer 
■ 0 - timer interrupt not- yet sensed*' 
1 -timer interrupt was sensed 



bit 9 is to simply indicate that the sub-band limit 



— — — 1. V. 

. allocating at least ONE position has been reached 
. ' within a current loop: 
' ' 0 » NOT at sub-band limit 

1 » reached the sub-band limit 
\ bit 10 is. to simply indicate that the maximum sub-band for- 
consideration for .allocation has been reached 
. .. within a current loop: 

- 0 ■ NOT. at maximum sub-band limit ' • .■ 
.1 • reached the maximum sub- band iimit 

y.audbits - number of bits available for sbits, scale factors and data ■ 
y:<usedsb. • number of sub-bands actually used 

y:<limitsb « number of sub-bands requiring at least one. allocation 

y:<qtalloc « timer interrupt set to signal quit allocation loops 

r0.» addr of the SBits array (x memory) 

rl - .addf of MinMasking Db array (x memory). 

r2 - addr of SubBandMax array (x memory) 

r4 - addr of the SubBandPosition array (x memory) 

r5 » addr of = the SubB and Index array (x memory) 



on exit 



a 3 destroyed 
be destroyed 
xb = destroyed 
xl « destroyed 
destroyed, 
destroyed 
destroyed 
destroyed 
destroyed 
destroyed 
destroyed 
n3 « destroyed 
n4 : . ■ destroyed, 
destroyed 
destroyed 



yo 

yi 

r3 

r6. 
nO 

Til ■ 

r.2 



n5 

.Vn€ 



AtLimit array by sub-bands (32) : 

bit. 0 set when allocation is below the masking threshold; 
bit 1 set when allocation is below the threshold of. hearing 
bit 2 set when allocation is at the limit of maximum position, 
or there are not enough bits to allocate 
the sub-band further. v : 



include 
include 



' def .asm' 
'box ctl.asm' 



section lowmisc 



xdef 
xdef; 
xdef 
xdef 



KNRsub 
AvlBits" 
TotBitS 
KldBits 
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• xdef ' count 

org yli : 
stbitalloc_yli 



MNRsub 


ds 


1 


AvlBits 


ds 


1 


TotBits 


ds . 


1 


HldBits 


ds 


i /' 


count 


ds 


1'. ■■ . . 


endbitalloc yli 






endsec 






section 


highmisc 




xdef 


BitsAdd 




xdef 


BPosAdd 




xdef v 


BInxAdd' 




xdef. . 


AllwAdd 




xdef 


MaxPos 




xdef 


MNRsb . 




xdef 


MNRmin . 




xdef 


MNRinx 




xdef 






org . 


yhe : 


stbitalloc_yhe : 




Bits Add 


ds \ 


1 -- : 


BPosAdd 


ds 


1 


BInxAdd 


ds 


1 


AllwAdd. 


ds 


1 


MaxPos 


ds 


1 


MNRsb : 


.ds 


1.. 


MNRmin 


ds 


1 


MNRinx 


dS: " 


1 


MNRpos' 


ds - 


1 



endbi ta 1 loc_yhe 
' endsec' 



. section highmisc 



xdef 
xdef 
xdef 
xdef 
xdef 



AtLimit . 
SBMsr 
SBMNRmax 
MNRval 
MNRsb c 



/count of -entries' in de-allocate tables 
/available bits to allocate 
/current bit count .allocated 
; sub-band critical allocation 
; sub-band counter 



/save address of SBits array 
/save address of SBPosition array 
/save address of SBIndex array 
,-save addr of applicable Allowed table 
./Max Position per selected Allowed table 
;curr sub-band for allocation 
/vaiue of curr sub-band for allocation. 
;new index for selected. sub -band : 
•new allowed position for selected sb 



stb 



org 
Ltalloc xhe 



xhe :. 



/flags set when a sub-band reaches its limit of allocation: 

lone per 32 subbands) . .. 
; - ■ bit 0: set if below the global masking threshold 
. bit 1: set if not used- or fully allocated : 



AtLimit . ds 



NUMSU3BANDS 
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.-This array holds the MinMaskingDb - SubBandMax for each of .the 32 suDbahds 
SBMsr ds : . NUMSUBBANDS Mask -Signal ratio by sub-band 

;This array holds the deallocation- selection values:' 

•; (MinMaskingDb - SubBandMax) r SNR [position at . next lower index] ' : : 

;for each of the .0-31 subbands ' ■•'■; , 

; SBMNRmax ' ds NUMSUBBANDS - /"; Mask- to -Signal ratio : • 

; plus SNR [ Prey pos] 

MNRval ■ ds '"- : :"' NUMSUBBANDS .... ;table of * ordered values sub-band . 

MNRsbc ds.'.; NUMSUBBANDS ;tabie of . associated sub-band 

eridbitalloc_xhe . _ - - ; ' . _ .' " " i 

' ■ endsec . 1 ■ \" .";*..". 

, section xtabies. 

' -.. xdef ' ' ndatabit . y ■ ■ . \. 

•■: xdef NDataBit. •/ 
xdef ■ NSKFBits 
xdef; SNR . 

org . ' xhe: ... 

stbitalloc_xtbl ';_.'/ 

;This is the . addr :of the selected table, ISO or CCS compression, 
. for the number . of bits for. data allocation '.by position 

- ndatabit ds . 1 . ;addr ISO or CCS compress NDataBit tbl 

1. ; This is the ISO table for the number of bits for data allocation by position 



NDataBit 



. dc 


0 * NUMPERSUBBAND 


; index 


ra 


0, 


no transmit 


■ 


0' 


bits 


- dc • 


5 *NUMPERSUBBAND 


; index 


a 


1. 


packed 


s 


60 


bits 


• dc- : 


7 *NUMPERSUBBAND 


; index 




2, 


packed 


m 


84 


bits. 


dc 


9*NUMPERSUBBAND . . 


; index 




3 • 




s 


109 


bits 


dC 


1 0 *NUMPERSUBBAND 


; index 




4, 


packed 


. 8 


120. 


bits 


dc • 


1 2 *NUMPERSUBBAND 


; index 


t* 


5 






144 


bits 


. dc. 


• . 15*NUMPERSUBBAND 


; index 




€ 




a 


. 180 


bits 


' do 


. 1B*NUMPERSUBBAND . 


,- index 




7 




«s 


216 


bits 


... dc 


2 1 * NUMPERSUBBAND 


; index 




8 






.252 


bits 


H "dc • 


24*NUMPERSUBBAND 


; index 


a 


9 




' a 


288 


bits 


dc ; 


2 7 *NUMPERSUBBAND. 


. ; index 




id" 




a* 


324 


bits 


. dC : 


. .. 3 0 * NUMPERSUBBAND ' 


; index 




n 






360 


bits 


dc - 


' * 33*NUMPERSUBBAND. 


' ; index. 


a 


12 




m 


396 


bits 




36*NUMPERSUBBAND.'. 


; index 


s 


.13. 




m 


432 


bits 


dc = 


■ 3 9*NUMPERSUBBAND : . 


; index 


■ 


14 




m' 


468 


bits 


..dc . 


. 4 2 * NUMPERSUBBAND .-. 


; index 


a 


IS 






504 


bits 


dc 


4 5 * NUMPERSUBBAND 


; index. 


a 


16 




m 


54 0. 


bits 


• dc . . 


'48 * NUMPERSUBBAND 


; index 




.1.7 






576 


bits 


;This is. the; 


CCS compression table for number of bits • 








• for data allocation by position 
















• dC;.' 


0* NUMPERSUBBAND 


; index 


s 


o;. 


no transmit 




*■ G 


bit's 




• 4 * NUMPERSUBBAND' • •' 


<; index 


a 




packed ... 




43 • 


.cits 


dc ■ 


6 *NUMPER5U3BAND - ■ 


; index 


..a 


2 , 


packed / 


'■ m 


7 2- . 


cits 
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dc. 


.. B ♦ MUMPERS UBS AND 


; index 


s 


3 ■■ 




9~ c;:s 


dc 


1C*NUM?ERSU3BAND 


; index 


s 


4 . packed 




120 


bits 


dc . 


I2*NUM?ERSUBBAND .' 


" ; index 


m 


5 " 




144 


bits 


dc - - 


15*NUMPERSUBBAND " . 


; index 


m 


6 ' .. 




ieo 


bits 


dc 


18 'NUMPERSOBBAND 


; index 


m 


7 ■ 


n 


216 


bits 


dc ' 


21 # NUMPERSUBBAND 


; index 




8 ' . * 


m 


252 


bits 


dc 


2 4 * NUMPERSOBBAND 


; index 




9 


m . 


288 


bits* 


dc 


- . 27* MUMP ERSUB BAND 


; index 


m 


10 




324 


bits 


dc' 


> 3 0 * NUMPERSOBBAND / 


... ; index 




11 • 




360 


bits 


dc '. . - 


. . 3 3 * NUMPERSOBBAND .. 


index 


*« 


12-.. . 


B '" 


396 


bits 


dc \ 


3 6 * NUMPERSOBBAND 


; index 


■m 


13 


"• s ■ 


432 


bits 


dc 


. 3 9 * NUMPERSOBBAND 


; index 


s 


•14 


ts 


468 


bits 


dc 


4 2 * NUMPERSOBBAND 


; index 


m 


15 


m 


504 


bits 


dc . 


4 5* NUMPERSOBBAND 


; index 


-s 


'16 ■ ■ 


. • * 


540 


bits: 


dc 


. 4 8 * NUMPERSUBBAND . 


; . ; index- 




17 


' m 


576 


bits 



;Each sub-band, if it is transmitted, ..must send scale factors. The 
;Sbit patterns determine how. many different scale . factors are transmitted. 
; The number of; scale factors transmitted may* be 0, 1,. 2 or 3 . Each scale ' 
; factor requires 6 .bits.-.: 

;Sbit patterns ' , 
... 00 Transmit; all .three scale factors .18 (3 * 6 bits) 

oi : Transmit the second two scale factors 12. (2 * 6 bits) 
10 Transmit only one scale factor 6 (1* 6. bits) : 

.... .11 , Transmit the first two scale factors . 12 : (2 * 6. bits).. 

;Tne NBits array is used to determine . the number of bits to allocate for the 
iscale factors. NSBITS <the 2 bits for SBits code), are added to account for 
•all required scale factor bits (18*2 , 12+2 , 6+2 ', 12+2) . 

NSKFBits - ' 

dc 20,14,8.14 , ■ 

;This is the table for Signal to .Noise ratio by position 

include ' . . \xmicrp\snr . asm* 

endbitalloc_xtbl.. 
■ • endsec 

. org phe 

bitalloc ' [ 



;Save the array starting addresses 

move r0,y:BitsAdd. 

.move. r4 ,y:BPosAdd 

move : • r5,y:BInxAdd " 



;save register of SBits array 

. ; save register of SubBandPosition array 

,-save register of SubBandlndex array . 



reelect the ISO or CCS comperss ion, table for NDataBit: 



move 
move 
.: -jclr 
•■ move ' 

_bita_20_A .". 
r ; move 



#NDataBit,r5. \; standard ISO table 

#18 n5 ;offset to CCS compression table • 

#0 y-<cmprsctl, bita 20 A . \ ;if not applicable, continue 
(rSWnS ~ . " ?select;the CCS compression table . 



r5,x:ndatabit 



;set addr. of NDataBit table' for alloc.- 
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\-set up che MNR array 

.move #SBMsr,r5 
.•apply, che safety factor 

move . y :o_psych,y0.: 
;loop through all sub -bands." 



;addr of Mask- to -Signal by sub -band 



;get the safety factor 



■ do . #NUMSXJBBANDS,_bita_30_A . 

move ' x: Cr2) 4/xO-. . " ;get a channel ' SBMax . 
move. ..." x : (rl)+', b get its channel MinMsk ' 

.sub . xO,b, ... ,*MinMask - SBMax * Mask-to-Signal ratio 

sub ■ yO,b • ;apply. safety factor to channel value 

. move b,x:.(r5). . ,-store for test if below mask already. 

_bita_30_A ; .;END.of: do loop ■■ 

set .-the working value for bits available for allocation.' 



move 
move 



y:audbits,xO 
x0,y: .<AvlBits 



;get standard available "bircnt 
; store as working bit cnt 



bita 40 A 



<c> TotBits 

clr 
move 
move ■ 
" move ' 
bclr 

• bcir. 



0; 



■/* start the bit allocation. counter . *7 



a . : #>l,xi -. 
a.yi ' 
a, y : <TotBits •. 
a,y :<count 
#A7 LIMIT_SUBBAND.y 



; total bit used, xl = 
;yl - 0 to initialize 



1 for start index 



;start the sub-band, counter . . 
<stereo. ;N0T yet at sub-band limit 

; which require at least 1 allocation 
#AT_USED_SUBBAND,y: <stere© ;NOT yet at sub-band maximum 

. " ~ ; limit for coding used sub-bands 



;inicial allocation for all sub- bands; , 

1. chat are wi chin the use (less than UsedSubBands) 
; . ' 2. with a MinimumMasking to MaximumSignal above the masking threshold 



move/ : . ttSBMNRmax, rO 

move #SBMsr,rl 

move y :BitsAdd, r2. 

move y:AllwAdd,n3 

move , y : BPosAdd , r4 

move y :BInxAdd, r5. 

-move ; #AtLimit., r6 . , 



;.addr of de- alloc Max signal -noise • 

;addr of Mask-to-Signal by sub-band 

;set register of SBits array 

;init the current Allow table 

;set register of SubBandPos it ion array 

;set register of SubBandlndex array 

;point to. SubBandAt Limit array 



/clear the n registers for the channel reference 

#0,n0 . 



clr 
move 
move 
.move 
move 
move 



n2 
n4 
n5 
n6 



;SBMNRmax array 
;SBMsr array 
; SBits array 
;SBPos array. • 
;SBIndx array . 
;AtLimit array 
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; initial allocation pass* 

; dc all required sub-bands- • 

d: : ,- ; #NUMSUBBANDS._bita_990_A . "\ 
; initialize the pertinent- sub- band, values to ,C • 

.. move " yi.x: (r6*n6). . . ;clear allocated .limit flag 'AtLiinit ; 

... move- : yi.x: <r5*n5} clear allocated . index . '.SBIndx: . 

. .move yl.x:(r4*n4i /clear allocated position iS3?os; 

;if we reached the usedi sub-band limit. . 

cake this one out' of the picture completely -. 

.jset. #AT_USED_SUBBAi3D,y':<stere6,_bita_180_A : 

move • , ■ . y : <count . yO . -''/get current ..sub-band ' ( 00 - 3 1 : - 

;s.ee if we reached " the- used sub-band limit. 

move y:<usedsb,b ; ;get count of used subbands for testing 

- cmp . yC.b ;see if sub-band,not to be coded. 

• jgt . . <_bita_50_A ;if not, continue v ■ 

bset #AT_USED_SUBBAND , y : est ere o ;just reached sub- band maximum 

3 m P / < —^i* ca « 18 0« A . . ;take completely out. "of use 

_bita_5C_A ■■ • \ .'; ':■ , 

;it we reached the sub-band limit for those requiring at least one sub-band. 

; see if . we have anything to allocate to get below the Global. Masking Threshold 

. ■ jset ' • **AT_LIMIT_SUBBAND,y : <stereo,_bita_90_A ' 

;see if at' least one allocation is required regardless of signal to- noise ratio 

move y : cliraitsb; a . ; get sub-band limit for at ieast 1 alloc 

cmp yO.a • -if there is- initial- allocation 

' . D.gt ■ <_bita_95_A . ..-continue . . 

bset #AT_LIMIT~SUBBAND , y : < stereo . . ;just reached that limit 

_biza_9o_A •• ; ; . 

otherwise, see if below Mask-to-Signal 

..move x: (rl*ni) ,a . ;get sub-band's Mask-to-Signal ratio 

.. tst a ■ ■ . " ;test Mast-to-Sig for positive value . 

jgt. ,<_bita_190_A - : ;i? below., masking thresh, ' set flag 

_bita_95_A : ; "'. •. ' ' :■■ 

;find Signal -to-Noise position that puts Signal below Masking Thres he la . ' 

; move- ■ xl,r7 ,'- ;start' at 1st Signal-to-Noise position 

..move -' #SNR', n7- " • ';addr of Signairto-Ncise table.. 

• ' , ' -. move ,; x: (rl+.nl), yC ; " , : ;g ec signal .to- mask .ratio ' • 

■ do '. *NUMSNRPOS:TICNS-'l._bita_110_A 

' move ' ; x: Vr7^n7 t.'.a ; get : the Signal-Ncise 'at position 

" add vC.'a '\ . . ;add MNR to SNR fcr. test. 
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Die. 



.still above mask, try- next position 



now below the Global Mask, quit -the loop 
< bita * li'O A' " 



enddo 



; found position, stop #NUMSNR PCS- 1 loop 
;co to- end, of loop • 



bita_lG0_A 

try the next position and continue, the loop 



move 

bita_110_A 

•move 
move 
cmp 

. move 



fr7) * 



r7.yc •,' ; , 
y:MaxPos.a 
yO.a ;■ yl.r3 

< bita IIS A 
al/yC \ ; 



•.;'try next Sig-Noise ■ position - : 

;END of #NUMSNRPCSIT:0NS-1 dc .loop \; 

..•save the matched SNR position 
•to test if exceeded, max position 
..■is counted position greater than max • 
; & start at index 0 with allocation 
;if not/ go on to match the index 
;set position. at. the maximum position 



bita_115_A 

find index cf the position that best matches the selected SNR position 
'do'-. #NlMINDEXES,_bita_130_A, 



move 
cmp 

-1 T - 



x: (r3+n3) ,a 
yO, a 

*< bita 120 A 



; get the sub-band indexed position 
■; compare to selected . position 
;match not found yet. try next index 



found the matching index, quit the loop 
c bita 130 A ; 



enddo 
}mp 



found index, stop #NUMINDEX£S loop 
go to end of loop ' 



_bita_l20_A 

•.try -.the next index and continue the "loop" 

• move- !r3 ) ♦ ' ".' ; "ry position at next index 

see. if .end .'cf -.the table line reached . 



move 

tst 

jne 



x: (r3*n3) .a 
a 

< bita 125 A 



;*."'*"; get this next index to tes: 
test for an index cf zero * 
;if not 0,.;keep looking ..- 



•index of- zero indicates no higher indices .apply, back up 1 : and use that . : 



move, 
bset . 
bset 
move 
enddo ' 
:mp; 



(r3)- ;use previous maex. 

# ALLOCATE LIMIT.x: (r6+n6i ;set the completely allocated bit 
SHEARING LIMIT, x: ir6*n€) . ;set the completely allocated bit 
x- -.r^nST^a .-assign the. last index position 

: " found index, stop. #NUM INDEXES loop. 

< bita 13C A - ' -,';.;S=> ^c end of loop-. • 



r.keec -.ocping 
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_tita_130_A . -';ENE cf. #NUMINDEXES cc. iocp 

?set the initial, allocation . SubBand Index and SubBandPositior. 



move 
move 



r3 .x: (r5+n5> 
ai.x: (r4*n4) 



; set initial allocation SB I ndx 
•set- initial, allocation. SEPos 



; determine the number of scale factor. tits allocated at'this position'-' 1 

;get the SBits scale factor code : 0-i) 
;addr SBits scale factor tit count thl 

;save the scale factor bit count 



;get the position 

; address of data -bit. count by position.: 

;get the bit count at this position 
;add scale factor bits. 
; and get curr TotBits 

;update TotBits with bits' just allocated 
;save new allocated total bits . 



;addr of Signal-to-Noise table 
.-get signal to mask ratio 
vget the Signal-Noise at position^ 
: ;add MNR to SNR for test; 
; U set up to set prev index for. its pos 
.•above mask, skip next statement 
. ; set Atliir.it partially done allocate 



. move 


x : ( r2'«-n2i ,n7 


• . , ' . move . 


*NSKFBits.r7 


nop 




move " 


x: Ir7*n7; , y e 


._bita_I40_A '•' 




;add the bits 


required for the signal 


move . 


x: tr4+n4 ) n7 


move . 


x:ndatabit , r7 , 






' move 


x: lr7+n7) . a , 


" - . add , 


y0,a y : <TotBits,xC 


'V add 


' xo , a • ' 


move . 


a,y:cTotBits ■ '■ 


; check that 1 Signal-to-Noise position 1 


move 


.. #SNR.r7 . 


'move- 


x: (rl+nii",'y0 " 


move- 


. x: (r7+n7; , a 


add-. 


yO/a -. x:,ir5+nS) ,r3 



lie 
-', bset. 

bita 160 A ■ 



< bita 16C A 

# MAS KING LIMIT, x: (r6*n€ 



,-set the value for testing the. best sub-band to. deallocate, bits from 
;if the frame cannot, handle the full required allocation 



move 
move 

move 
add. ' 
move 
3mp 



x: (r3+n3), n7 

x: tr7+n7) , a 
yO, a •• 
. a , x : (rO+nO) 
< bita 200 A 



.. ,-back up one index to get that position 
. ;get the position at the. previous index 

■ ;get the Signal-Noise at : position' 
-.;;calc Sig-to-Noise at prev position 
. ";save.m SBMNRmax array for. later . 
. -/continue. With -the next sub-band,.' 



_bita_l?G_A . 

,-sub-band is.not to be .coded at- all.'. ' 

'•" ** ALLOCATE LIMIT* x : .: r6+nS )■ ; set AtLimit totally .out of 'allocation 
SHEARING LIMIT, x: {r6<-n€'» ;set AtLimit at threshold, of hearing 



oset 
bset 



:ta IK A 
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;sur-band is sc::; indicate i: ;s a: its masking threshold 

bsev #MASKING_LIKIT/X:(r€*n€' ; set AtLiir.it partially done allocate 

_bita_20C_A ; 
•finished the sib-band se:. up for.che initial allocation of the next sucband. : 



move 
move 
move 
move 
' move 
move, 
move 
move 
move 
move 
move 
move 



tro>- 
(rl)* 
316. r3 
(r2) - 

tr3Un3 . 

r3,n3 . •' 

(r4i* ' ' - 

<r5i~ • 
. y < count . r7 
" ir6>- 

ir7>- 

r7,y recount 



; next sub- band SBMMRrriax 
,-next sub-band SBMsr- 

;to position to next Allowed' sb table . 
;next sub-band SBits 

; next sub-band Allowed table array \ 
; se- adrir for next suo-band. Allowed pos 
•next sub -band SB Pos ; 
; next sub-band SBIndx 
; get- current sub-band count 
..•next sub-band AtLimit 
.•increment the sub -band counter ■ 
.•save. new sub-band 

; E5C cf #NUMSUBBAN2S do loop 



_bita_990_A. 

. ^« w--h the initial allocation phase, phase A . 

; Jet ^rderallocatlon.pass^ state of control f.ags. 



. bset . # MASKING PASS , y : <stereo 
bclr *HEARING~PASS.y:<stereo 
bclr 3FINAI. PASS,y.:<stereo 



; flag' do masking passes 

; allocate. index must be > 1 

■NOT final passes 



; see if frame fits cr do we have to de-allocate selectively 



rr.cve 
move 

; cmp : ■ xO . a 



v:<TotBits,xG 
y:<AvlBitS.a 



3 ce <_bita_990_B 
dc '/ ■ aiOC0,_bita_990_B 



; get the total tits. allocated 
get available bits 
■;Tot3its vs BitsAvailabie 

- s . allocate any leftover tits 



oi any remaining bits 



.. jelr 
: set 

* bset ■ ■ 

enddc 

•■'move ", 
jmp 



#0,y:<p:talloc._bita_10_B '■• ,1 ' ■ v <B „ #4nup -ii #■ 
5 FINAL PASS ,y : csterec,_bita_10 B ■ ~ 
ttFINALlPASS.y.:<stereo ;set for ■ FINA- -^e.ia 



.nai 



y:<TotBits f xO 
< bita 9 9C_C 



•stop the- #100C loop and exit 
•get the total bits; allocated 
•out cf time; de-allcc. under last oasis 



bita 10 5 ■ 

"now ler's^ooK for qualifying; candida.es for next ■de-aUoca,ion 



move. : . #SBMNRmax,rO 
move ■ * y -.BlnxAdd, rS 
.'move , ' *AtLi:r.it,r6 ■• 
' move - . ■ fcCvr.C' ■ . . 
r-ve r.: . t.z •" 



•addr- of .de-alloc Max signal-noise 
• set recister oi SubBandlnaex array, 
•point to SubBandAtLir.it array 
.♦offset tc the channel SBKNnrtax 
•offset to cr.ar. SHlr.dx 
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move r.C f n6 .' .■■ 

move is C , r2 ' 

move r2 , y : <MNRsub : 

move ' . *>1 » xl 

move y:<limitsb,yl ; 

move - UMNRval , n3 

move .ttMNRsbc . n4 . • 



;offset to .char. Atl*imit" -' . 

;use r2 as a sub-band counter : 

; start cnt'of de-allocate table, entries 

.; to. test for index* of. 1 

; to test for at least one alloc limit 

; get address of MNRval table 

;get address. of MNRsbc table' 



;to deallocate. the- 1 index if the signal starts out below. global mask 



move 
move 



ItSBMsr.rl . 
n0,nl 



;'addr cf Mask- to- Signal by sub- band 
;offset tc chan SBMsr 



rloop thru "the* sub -bands / - 

' do. y : <usedsb,_bita_60_B 

;if nc index has been allocated, try. theinext sub-band 



move 

tSt : 

3 e( 3 



x: <r5+n5) ,a 
a 

< bita 70 B 



.•check, for an allocated index 
.if zero, try the next sub-band 
;nb allocation try next sub-band 



rif the- 3rd mode cf. selection, no checks are made 
jset *FINAL_PASS,y :<steree,jDita_60_B 



; 3rd mode . use this one 



rif 2nd mode of selection sub-band may be below the masking threshold, but 
checks to make sure that , if index allocated is ONE and that the 
sub^band is not- required fcr continity 



jset. .. ' #HEARING_FASS , y: <sterec, _bita_5D_B 



;2nd mode nun*, cf index 



.-must be 1st mode of selection which requires that the sub-band 
; . be below the masking threshold 



bita 50 B 



#MASK:NG_LIMIT;x: (r6-r.€: : ._bita_?0_B 



; s k i p : above ma s k t hr e s 1- 



if we have allocated only 1 index, skip this sub-band if. at least one 
. allocation is- required 



.cmp ■ ' ■■ xl , a . 

ngt <_bita_6C_B 

move : r2 , a . 

' cmp. yl . a 

}ge ' <_bita_70_B 

move a>14,yi.'~ •;. 

cmp : yl.a. y : <limitsb,yi 

j.lt* \ ' <_bita_70_B 

move . '- ' x7*.rl*ali 7b. 

tst b • 
' He- ' ' •"■ < bita fQ B ; 



;"see if index at .1 . 

,*nc, this sub- band qualifies : 

; get current sub-band 

;see if sub-band below at least 1 . 

;if greater, deallocation candidate ■ 

;if .greater' than 14, check ' 

;test sb vs'14, restore- iimitsb tc.yl*. 

;if . less than 14, keep the 1 allocation 

; get Max Signal to MinMask 

;if positive, started below global mask 

; if . net positive, . keep the 1 allocaticr. 



bita 60 B 



•candidate qualifies, 
;. insert this candidate* 



:ial de-aliocatior;- 
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' jsr . : < insert rvalue 

_bita_70_B \ • \ 

,-advance to'"the next ' sub-band ./ 

■ move "■ (r2W /increment the sub-band counter 

move (rOJ* ■ .-next.- sub-band SBMNRmax - 

• move ■ !r5)+ • . .-next, sub - band SB I ndx 

move (r6 ) + ; next sub- band At Limit . 

_bita_B0_B.' / . - ; end of y:<usedsb do loop • 

; if there are any entries in "the de-allpcate tables/ start reclaiming bits 

move * y:<MNRsub,a ' ■'. . , ;get the de-allocate table entry cnt 

tsc ■'' a - .-test for. zero, no ;eritries'- 

• . jne . : < bita_U0_B . ; ; are entries at this criteria. . dealloc 

.•since there were no candidates to deallocate ( MNRsub « 0). 

; ;change the selection criteria: " _ 

• if we've done the final criteria and nothing to deallocate, . 

we can do nothing here, exit (How Come???) 
V . if we've not found anything with at least. 2 indexes allocated, 

switch to select from any sub-bands . ' 
if we've not found anything below the .masking threshold, ... 
. . switch to at least 2 indexes alloc v 

•redo the selection criteria. 

jset' ttFINAL^ASS/yVotereo^bita^ogS^B ;??? shouldn't be, exit .. 

jset SHEARING PASS, y : <stereo, _bita_100_B 

jset #^KING~PASS,y:<stereo,_bita_105_B 

bset ^MASKING PASS , y : <stereo . • 

jmp <_bita_200_B • . .; loop thru with this criteria 

. _bita_09^> B ; stop the 10 00 loop and exit 

move 'y:<TotBits,x0 .;v. V ;get the total bits allocated', 
jmp;' .., <_bita_990_C . 

bita 100 B- 
■ " - bclr . #HEARXNG_PASS,y:<stereo 

h S ar *FINAL PASS.y :<stereo ■■ . ■'• 

■j3- •:<lSta:200> y ,. ,-- ^ 

bita 105 3 ■'• r ' ■ .... 

" ~ bclr # MASKING PASS.y :<stereo : ; 

.-there. are. entries in. the de-allocate cables . .; 

' _bita_110_B .V..'- 

;de-all3cate from the table from 1st ^ entry to last 
or. until enough bits have been reclaimed ; 



clr ' a 
move 



a . y : < count "[ - ; start counter thru the table 
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r.rcugr* 

do 

move 

move 

nop 

move 

move 

move 

move 



:r.e ordered .de- allocation table 



y : <MNRsub*,_bita_19G_B 

»MNRsbc/nO . . 
y : < count , rO 

. x: ^r0+n0) , a 
a ( y: MNRsb . 

•:.r0)- . - 

rO , y : <cpunt 



; restore the channel array addresses. 



move 

move 

move : 

move 

move 

move 



0- 



ttSBMNRmax, 
#SBMsr, rl 
y :BitsAdd, r2 
y :BPosAdd,r4 
y :£InxAdd, rS 
#AtLimit . r6 



; address of MNRsbc table 
; current table entry index 

•get selected sub-band • 
.-store current sub-band' (0-31 !. 
; increment-- to next table entry 
.save next table entry 



;addr of de- alloc Max signal'- noise. 
;addr of Mask- to- Signal by sub -band ■ 
.set register of SBits array 
;set ..register of SubBandPosition array 
;set register of SubBandlndex array 
; point to SubBandAt Limit array 



rset the proper allowed table of indexed position based on the selected sub-band 



: move 
• ' tst ., 
" " jeq 
move 
do 
.. move 

_b:ta_13 0_5 
• move 
. move 
move 
. move 
• move. 

move ■ 
'■ move . 
move 
move 
move 
move 
move 
move 
' move 

sub ' 
move, 
move. 
' move 
add/ 



y:AllwAdd,r3 

a • 

< bita 1S0_B . 
: *T6,n3~, 
a, bita 150 B 
'.r3J*n3~ 



r3.n3 

y : MNRsb, nO 

nO.nlv 
n0.n2/- 
• nO , n4 
nO.r.5; • 
r*0 , n6 ■ 

x:ndatabit, r7. 
y : <TotBits, a 
x: (r5*n5) ,r3 
x: ir4«-n4)",n7 
(r3/- 

r3.x: {r5«-n5-i--"" 
x: ':r7+nTi , xO 
xO.a 

x: "r3+n3) ,n7 
n7,x: ir4+n4i 
x": ;r7*n7; ,b - 

b,a - ; 



; init ■ the current Allow table ' 
;see if it • s sub-band zero (from above} 
; sub- band zero was selected 
;to increment to next sub -band addr 
; increment to sub-band number chosen, 
.; 16 position entries per sub-band 



•set . Allowed addr for sub-band chcser. 

;get selected sub -band m SBMNRmax 

; sub-band in SBMsr 

;sub-band.in SBits 

-sub-band in SBPos 

;sub-band. in SBIndx 

; sub-band in At Limit 

; address of data bit count by position 
;get current bits allocated . . 

. ; get the current . allocated index.'.' 
; get the position at the old index 
.back up one index 
;save new SBIndx for sub-band 
•data bits allocated at that position 
; subtract old allocated data bits 
;get new position . 
;save new SBPos for 'sub- band "\. 
;data bits allocated at new position 
;add new allocated data bits 



tst 
jne 



;we nave 



mcv* 
movs 



..<_b:.ta_16 0_B - • 

take off the scale fact: 

■x' : :r2-n2: .r-7- 
aSSKrBits., r7 ■ 



bits 



;see if index 1 just de-allocated 
f not. save the new TotBits value. 



7get the SBits seal* 
; addr SBits scale 



factor 



WO 96/32805 



PCT/US96/04835 



-97 



move x : :r7*n7) f yO 

sub .yO . a * . " . 



;get tne scale factor bit ecu-- 
; subtract- from' Tct3i-s V " 



_bita_l€0_B , 

move . a/ytcTotBits . ; save the new .total, bits ■' 

.•check; if Signal -to-Noise position that Signal' above/below Masking Threshold 



~ bclr. 
move 
move 
move 
move 

- add . 

bset . 



i^i?7 t rf T ' X; ' ,r6 * B6< ' ;Cie ! r * SI -»i S . : b.lbi masking thresh*!* 

x. tr4*n4) ,r.7 , ... . ;ge t the position 

x S ^!Im Vo • ■ ;;: ^ ;addr ? f Signal- to-Noise table; - 
x. (.ri^n*) ,y0 ; get signa- to mask ratic 

X:tr7+n7), a ; • _ ;get the Signal-Noise at position 

yO,a X:.(r5-r.5)..r3 .; ;add MNR to SNR for test P 5 ~ lor : . 

i hir, nn o ■'" ■ - ; t se " up to set P*ev index for its pes 

°tm« •/ V , ,; above mask, skip next statement . ? 
■ #.MASK r N^IM iAt x: tr6-n6J ;set Atlimit below, masxir.g threshold 



_bita_170_B 

.•check if. the bit pocl can. now handle the frame as allocated 



move 
move 
cmp 

enddo 
enddo 
jmp _ 



y : <TotBits,a 
y:<AvlBits.xO 
x0, a 

< bita 180 B ' 



. <_bita_990_B '. 
_bita_180_a 

;if there is nc index allocated (rr . C 



. ; get the new total bits . . • 
;get the available bits'..-' 
;BitsAvailable ys TotBits : 
;need more, continue .with" de-allocation 

. ;we're done. here, stop MNRsub loop 
;we* re . done here, .stop - #1000 loop '. 



continue with the next table entry 



move 
tst 



r3,a 

•a 



'■■ leq .. <_bita_185_B 

;set the value for testing the. best 'sub-band to deallocate bits f-om 
;i- the frame cannot handle the- full required allocation 



;get newly decremented index allocated" 
;if it-is zero, continue ' 
; & back up one .index for that position 
; allocated, index equals C, continue 



move '- . 


x: <:r3Vn3) ,n7 


v -nop " 




■ ■ .move ■ 


x: !r7+n7) , a 


- : . -add 


. yO , a ' " ■ • . 


: move '" 


a,x: (rO+nO) . 


_bita_i85_3. 




. " ■ nop 




_bita_l-90_B'- '.; 




nop 




_bita_20C 3. ■ 









:a 59: 



;get the . position at the. previous index'. 

\-get .the "Signal-Noise, at- - position" 
;calc Sig- to-Noise at'prev pesiticr. ''. 
;save in SBMNRmax array for later 



; continue y : MNRsub do loop . 
;end of y: MNRsub do loop 

; cent mue #1000 do loot. V 

- - - 
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■•; sez the allocation passes ■ initial state, of control, flags 

bset #MASKING_PASS.y:<stereo . ;flag do masking passes . ' 

/. bclr *tHEARING~PASS, y : <stereo . • ;NCT hearing threshold passes' 

. bclr . *FIHAL_PASS, y: cstereo ,-./;NOT final passes.- 

;get :he total bits allocated so far ; " " : . 

move ~ y :<TctBits,xO . '/•.."' 

; Now that we hive- the initial bit allocation, iterate.on it. 

; (c) for! *.oopCount «. 6; ; *«• Loop Count ; . { 

:? ■• do\. #lCOC._bita_990_C . 

;test the- bit allocation timout flag. * : 

; if the timer flag was trip, switch over. to the final bit allocation 
; '" V . of .any remaining bits 

'■ jclr *C, y ':<qtalloc,_bita_10_C " ; 
\ Isez ■ *FINAL_PASS,y:<stereo.3bita_lC_C 
bset v : #FINAL_PASS.y:<stereo ■■ " . 

;this is equivalent to the. call to; the c subroutine:. 

; Co) AilocateBits i) 

.-in'ititiai allocation is done,, set-up for as needed allocation loop 
.".•restore the left channel array addresses 

" bita 10 Z. \ ■ ■'■ 

' ~ move- aSBMsr.rl ;set . register of SBMsr array 

move ' y:BitsAdd.r2 ; set- register of .SBits-. array > 

move y:BPosAdd.r4 ;set register cf SubBandPositish arra*. 

move ' y:BInxAdd,r5 .;set register cf SubBandlndex array ' 

move . **AtLimit,r6 . . point to SubBandAtLimiz array . _ 

. ; icj FirstTime - 1 ; ■. '/*start run 'thru subbands ' this- time ♦/ 

bset. #FIRST_TIME,y : <stereo : ; FirstTime •»-.! 0 • 

;clear the. n registers for the channel reference - 

' clr ■ ' a - •: ' ". 

move " al,y:<count ,-start -the- sub-band counter 
.'. move y:AllwAdd,rC 

■ ' move' #SNR,r3 • , "• 

. . move ' a,nl - . . ;SBMsr array 

• ■' ■ ■.move a.n2 . ' ; SBits array : 

move a,n4 ■•' t. ;SBPos array 

-. -move a,n5 . ■ ; SB Indx array 

' move . a.n6 .. . • . • ;AtLimit . array . 

;gb through all, used sub- bands looking at only those' - 
."; what have not reached the allocation limit: - 

•,.ac y:<usedsb._bita_i3C_C • ' 
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V '• ,' •'' • ' - 99 - ' V : *.;-\ ' \ " •■ ■ ■ /; 

.-see if -his sub -bandvs limit- flag was se: previously . and skip, if it has.' 

jset : *AlXOCAT£_LIMIT,x: (r€*n6> . Jcita_100_C .-skip, subbr.d reached limit 
jset «tFINAL_PASS.,y:<sterec;_bita_4 0_C pass . skips below mask check 
.... jset #maskING_LIM:t,x; (r6*ns: ,_bita_10C_C ; skip. subband reached lir.it 



_bi.ta_4 0_C 
■ move 



x: (r4+n4) ,a .'. ;get curr position [SubBand] 

see if this sub-band has reached its limit already • 



move 

cmp '■ 
jeq 



y:MaxPos,y3 
vC,a .. al,n3 
'< bit a 80 C 



;set max value ' =' 

;see if max position; move pos to -n3. "\ . 
rreached its allocation limit; set f lag . 



■*.eck this sub-band out'. 

see if there is room to handle the next allocation, for this sub- band 



,-'init added- scale factor bits 
; k to incr to next allowed bits size. 
;SubBandIndex CSubBand] 



. clr b #>l,yi . 

move . x:.(r5+n5).,a . 
if this will be the 1st index, we must account for the scale factor bits 
. tst • • .-.'a .' ' *NSKFSits,r7 
■ 3ne-'-" <_bita_50_C 
rset the scale factor sbits needed for. this -1st index in this sub-band 



; see if 

; set addr of NSKFBits array 
;not 1st index, skip add. scale bits 



. move 
nop 
move 



x :. (r2+n2? ,nr 
x:(r7*n7j,b :. 



;get SBIts index 

;num bits for scaling infc 



.t a 3v v. 



add 
move 



yl,a 
al,n0 



;incr,- get addr of NDataBIts - 
;set offset for. Allowed next index 



x:ndacabit.r7 

; i 

•see if next allocation' is passed the max for this sub -band as per Allowed table 



nop 
move 
. tst 



x: (rO>n0> , a 
a . ' al,n7' 



vjeq". : - • <_bita_8C_C 
;test the ; allocation at. this new pos: 



move 

-add.' 

- move 
move 
move 

sue 



x': tr7*n7i ,yl 
yl, b . n3-. n7' 

bl,yl ■ 
x0,b . ■ 
x: vr7+n7) ,y0 



y:,b- 



al . x^ 



; get the NextPosition. as the. new pos 
;see if passed the maximum position 
; & move new pos -to n7 
; reached its allocation limit; set ila= 



; get NDataBits (NextSBPos].- 

; add to any scaling infc bits 

; & set of fset SubBandPos [SubBanc] ) 

;bits. to add for next index 

; b««>TestBits * OldTotBits 

;get NDataBits [SBPos [SubBand: J 

;TestBits current bits 

; & put new position in proper res 
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.; tci 
;.<c: 



cmp. 



- 100 - 

yl , c y : <AvlBitsya ; TestBits/ *• next allocation bits' 

; 4 gets BitsAvaiiable -V. 

if:{. TestBits .> BitsAvailable L; { ' . ■" 
AtLimit « 1; * 
■continue;. 



J 



b, a b,y vTotBits 
V bita 0C C 



; see' if room 4 : save allocation . ■ 

r no room, 'set as AtLimit and continue 



his is the .final loop, skip the next., test and allocate the bits 

jset" ftFINAL^PASS^xstereo.^bxt^TC^C -. ;pass skips below mask check 



iCJ 
ic) 
(c) 



move , 

move 

add 

igZ ... 

move 
jset 
cmp 
jle 



fcita 6C 



SMR » SubBandMax [SubBand] . . " 

- MinMaskingDb [SubBand] 
.MNR = SNR [SubBandPosition [SubBand] ] - SMR 



x:.(r3+n3) ,yl 

x: (rl*nl) ,a 

yl.a y: MNRmin, b 

< bita 90 C • 



;get SNR (SubBandPos [SubBand j 3 

;SBMsr [SubBand] Mask - to- Signal . : 

;add Sig-Noise ratio; . 

; & get MNRmin for below 

;below Masking, go to. take out pa: 



a,yl f save MNR 

8FIRSTjnME,y:<stereo,_bita_6C_C ;if first, 
yl,b ; MNRmin - MNR 

< bita 100 C. • 



save as minimum 



move 


nO,y:MNRinx 


move 


xl , y :MNRpos 


move 


y : <TotBits,xl 


move. 


xl,y :<KldBits 


move 


y : <count , xl 


move 


xl,y:MNRsb 


move 


y 1 , y : MNRmin 


bclr 


#FIRST TIME,y:<stereo 


j«P ■ 


< bita~100 C 



■; MNRinx - Newlndex; 

;MNRpos - NewPosition; 

;get the allocation of bits . 

;save the allocation of bits 

;get current sub-banc . 

;MNRsb ■ SubBand; 

; MNRmin • MNR; 

; clear FirstTime flag 



; we are on the final allocations passes after all sub-bands 
; are! driven below the. Global Masking threshold 

_bita_70_C 
~ . / " ' move 
. move - 
move 
V. bclr 
• jmp ■ 



y : <TotBits,x0 
n0,x: Ir5*n5) <"'-.'• 
xl.x: (r4*n4i ■ 
#FIRS7 TIME.y:<stere6. 
< bita~100 C 



r save new TotBits 
; save new sub -band index 
rsave new allocation position 
r clear FirstTime flag 



_hita_3C_C . 
' ■ " bset 
..■bset\ 

_bita_50_C'.' : 
~ Bset 



.-^ALLOCATE LIMIT, x: (r6+n6>. ;set the completely allocated bit 
#HEARINC_LIMIT,.x: (r6*n6 i ;set the completely allocated bit. 

# MASKING LIMIT, x: irS+hSI ;set the reached global masking bit 
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. move 
move 
/ move 
move 
move 
move ; 
. . move 
move 
.move 

• move 

bita 13C C 



y : <ccunt . r7 
#16. n-5 

!rli* .■ * 

:r2J* .." 

Ir4)"* . 

lr5J* 

(r6)* ' ' 

(rO) *n0 

,r7 , y : < count 



;get current sub -band, to increment 
;now' update Allowed .tc next sue band 

;SBMsr array 
•;SBits array 

;SBPos array 
:;SBIndx array 'Y 

;AtLinu.t array 

.•advance Allowed to next sub-band • 
; increment the- sub-band counter . 
; save new sub -band number 



; At this point the following registers, are in use . 
y:AvlBits « # of bits available ■' ■ 
y: MNRsb • MNRsb 
. y :MNRMm * MNRmin ... 

;We test now to see. if this trip thru the loop produced any changes 
; and if not, we have finished/the bit allocation for this frame. 



(cl 
(c) 



FirstTime ) . 
. return; ... 



jelr #FIRSTJTIME/y:<stereo._bita_140_C ;not 1st. alloc to selected 
jcir #FINAL^PASS.y :<stereo,2b ita Z 16 QZ\ ,;not final, . set 1 more loop 



; finished, end the loop 'and go to exit, routine 
< bita 990 C ■ 



enddo 



_bita_l4C_C ./ ' 

;' test, flag all candidates are" below .masking threshold 

. \jset! . WFINAL^PASS/y^sterec.^bita^lTO^ . ; if final 
; restore the channel array addresses ';' 



allocated already 



move 
move 



y:BPosAdd,r4 
y:BInxAdd,r5 



SubBandlndex [MNRsb] «•* . 
SubBandPosition [MNRsb] 



move 
move 
move 
,' wove 
move 
. move 
move 
' jmp 

;now lets just 

_bita_l€0_C : 
" . " ~" ' bset • 



y : MNRsb, n5. ■ 
n5 f n4 . 

y:MNRinx,xl \ 
xl,x: (r5+n5) 
y :MNRpos , xl- 

'/xl,x: tr4*n4 i 
y-:<HldBits,xO 

, < bita 170 C * 



;set register of SubBandPosition array 
;set register of SubBandlndex array 



AllowedPositions [MNRsb] [SubBandlndex I MNRsb] ] . 

■ " ;MNRsb 
; MNRsb 

r get the saved new index 
.; update the SB Indx for selected sub-bar.d 
' ;get the saved new Allowed position 
; update the SBPos for selected sub-band' 
. ?set the new bit- -allocation - total .crit. ■ 
.-continue major, loop 



allocate' what's, left ,now_ that .all are below mask" 
;■ #F1NAL ' PASS,y-:<stereo just loop now ' • • 



l 3A0 ordinal 
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" * ' ' ~ nop 

_bita_990_C 

"* move 
move- 
sub ; 
move - 

res ■' 

; insert value I r 
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xO ,y: <TotBits 
y: <AvlBits,b 
xO.b 

bl,y tpadbits. . 



;save bits actually allocated 
; determine number of bits padded 
;bits available minus total allocated 
,save count of • unallocated audio bits 



;This routine- orders the table of values per sub-band 
; that. are to.be de-allocated as needed. The table is ordered in. 
rdescending sequence that makes the 1st entry the one that can best 
.•afford a deallocation. . 



ron entry: 



x: (rO+nO) ■ Che current value to be inserted \ 
r2 « . the sub-band number to.be inserted 

y: MNRsub « current count of entrieis. in tne ordered deallocation tables 
n3 » address of MNRval table " 
n4 * address of . MNRsbc table 



;on exit : 



y : MNRsub « incremented count of . entries in ordered, deallocation tables 



a » destroyed 
b * destroyed 
. xO. » destroyed 
yO » destroyed 
r3 -destroyed 
r4 - destroyed. 



org - 
insert value 



phe : 



; get the current, value to be inserted and set upo the start into 
; the orderedtable of values and the assoicated table of sub-band- 



move, 
move 



x: (rO+nO) ,a 
y:<MNRsub,b. 



;get the current, value to insert .. 
;get. current count of table .entries. 



.;if this is the 1st value "to be inserted ino the table, skip the 
.; search for its place and enter this as , table, entry . no. 1 



tst . . b ;. . 30, r3 
jeq <_insert_50 . 



;see if this is 1st entry into table 
; & set to 1st entry in MNRval table 
;if 1st ,.. skip following table search 



,-search through the table of entries so far established looking. for . where. 
;to" store .this current., value ' 



dc 



y : < MNRsub, _insert_20'; 
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move 
cmp 



x: :r3-r.3 
xO , a : 
< insert ' 1C 



xO 



; get the table value for cocpariscr. ' 
; against the new value tc be inserted 
;if less., value is further down table 



; when the new value is greater than cr. equal tc the table entry, " 
; .this, is tts place in. the table, we may have to shift the following 
.-..table entries in order to enter this new .value -. 



. enddo : • 

jmp- \ <_insert_20 



.-stop the y:MNRsub do loop 



; see 



the table must be shifted 



_inserc_lC 

; . "move 

insert 20 



ir3).- 



;try the next . table" entry. 
,*end cf y : MNRsub do loop 



:f this entry number (its place in. the table- equals the coun 
this entry will be the new. LAST entry m the table . . . 



entries » : 



move 

*' cmp - 
jgt 

. jeq 
move 
jmp " 

insert 25: 



r3.x0 . - 




xO.b 




<_inserc 


25 


<~msert 


I 50 


bl. r3 ' " 




< insert 


50 : 



.-get' its place in the table, to .compare 
.-its place tc current table entry count 
;if less, we have to. shift the table 
..-if eq, entry is appended to the cable 
.;?? let's make sure we use last entry. 



; we need to shift the subsequent entries in the table down one and then \ 
: insert this new sub-band value." 



move 
move 
.move 
move 
move 
sub 



move 
move 
move 
move 
move 
move 



br .r3 
b:.r4 '■■ 
ir3 ) *n3 . 
S-r4) +n4 
<r3)- . 

xo/t : . 



tr4) ■ 



/establish the curr table ends 
;for botft MNRval and MNRsbc . 
•set r3 with .addr of MNRval end 1 - 
.-set r4 with addr f cf MNRsbc end - 
;back cff 1 to get last MNRval entry, 
.•number cf table entries tc shift 



b, _insert_4 0 

x: ir3)-,y0 
yC,x:.{r3i- 
x:(r4j* f y0 
,y0 .x: lr4) - 

(r3) - . 

ir4)- 



; & back cff 
.shif 



:c get last MNRsoc entry 
each down i position in tables 



inse: 



40' 



,-get curr value and mcr. tc rec addr ' 
,-puc value i entry down & back up.l 
; curr sub- band/ chan & incr \tc rec adai 
;put value 1 entry down: & back up 1 
;back up one more entry table MNRval . 
••back up- one more entry table "MNRsbc ■ 

end cf b do loop" 



.-restore entry locaticn tc . receive value and sub -band 

■ move ' • xC , r3 

_ihsert_5C ; - 

.•insert the current value at this locaticn in the' crdered table. 
; alsc insert the sub-band number 



move 



: matching positicr 



Lr. the MNr.sbr .tab-e 
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move • a,x: fr3+n3> . /enter sorted value 

move r2,x: (r4*n4) ■ ;enter.the sub -band number 

..•increment the count of entries in the ordered deallocation tables v 

move ; y : <MNRsub, r3 . ;we need to increment entry 'counter 

• nop . 

move " (r3) + ■ - ' '. . • 

= ■ move. r3,y:<MNRsub - .. ;save the new table entry count \, 
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; ic)' 1995. Copyright Corporate Computer Systems, Inc. All rights reserved. 

i \DGCS7\botsallo.asra 

'. title : ' Initialize bit output' - : 

; This routine is used to initialize the bit output, routines = • . 

include 'def. asm* ' 
". include. ' box_ctl . asm' . 

section lowmisc / 
'■':•/' xdef . sc.curwd .." 

org '- . . yli •.- ■ '.■ ;. t 

stbitsalI6_yli ;■ .'.'.* ' .' • ; 



sc 

curwd 



.ds. 
ds 



.•shift, count * 
: current word 



endbitsallo_yli 
endsec- 

org 



phe : 



; b * t ^° 0l This subrourine determines., the number of bits available based 
• on the output bit. rate and the type cf framing . 

•The table below is based. on a Sampling Rate at 48,000 /sec and shows 
•the breakdown. of bit counts based on bit rate o/p.and choice of frame type 
u ,rnii >- Joint Stereo .- 



• • * ♦ * 



;kb . 
; rate 

;3B4 • 
;256 
;192 
;128 
;112- 
; 96 . 
; €4 
; 56 



frame 
bits - 

9216 
6144 
4608 . 
3072 
.2688 
2304 
1536 
1344 



Mono 

fix avail 

136 9080 
. . 6008 
4472 
2936 
2552 
2168 
. 1400 
1208 



Full 
Stereo 
fix avail 



< Joint Stereo 

4-bound 8 -bound . 12-bound 



224 



8992 
5920 
4384 
2848 
2464 
2080 
1312 



fix avail 

152: 9064 
. 5992 
4456 
. . 2920 
2536 
*'.'. ..: 2152- 
. 1384 



Six aval 
168 



136 



224 1120 152 1192 ' 168 



9046 
5976 : 
4440 
2904 
2520 
2136 
1368 
1176 



fix avai 
183 



- - - > 
1 € - bound ' 
fix avail 



183 



9033 
5961 
4425 
288'9 
2505 
2121 
1353 
1161 



195 



9021 

5949. 

4413 

2877. 

2493 

21G9 

1341.' 

114 9. 



♦•*♦*•*♦♦*♦*♦♦♦♦♦♦*♦♦♦*♦♦*♦*♦♦**♦****♦********** 



y:<stereo » flags: 
test b: 



indicating applicablation cf CRC-16 protection 
v. 0 • . NOT APPLICABLE • ... 

1- - CRC-16 protection APPLIES • 

y.frmbits.- the- total number of.;bits-'in a frame/at the specified . 

bit' rate- • '•' ";• 

0n . eX1 x « destroyed . returned' number, of required, 'fixed! bits _ 

•\ xl destroyed - returned number .of bits availaeie f or cit aiiocaticr: 
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a destroyed 
rC destroyed- 
ri destroyed 
r 3 destroyed 



106- 



org 



phe :■ 



bitpool 



.•Select the proper .Allowed table: ' 

; iso,. • ■ 

Ij for low sampling rates. (24 or 1€ K) , 

set ISO. Extention Allowed. table . (Aliowed_3> 
2. for high sampling rates (48, .44.1 or 32 K).: " : 
. a. based on MAXSUBBANDS . less than 27; . 
■ set ISO, lower bit rate Allowed table (Allowed_2) 

; '' ." b . .else, " 

; " set. ISO higher bit. rate Allowed, table ;Allowed_i;. 

• CCS • . ~* 

] ■ set :SO higher bit" rate' Allowed; table (Allowed_l) 

;low sampling rate:' " 

; test the. frame header ID bit (if 0i. : it ' s a iow. sampling rate frame) 



move 

nop •. 
jset 

move 
move 
move 
jmp 



#smplidbit , rO ... . 

#C,y: irO) ,_bitp_000_A 

# Allowed 3,r0 ; 
#skftbl T.rl .. 
#>15,xl~ 
<_bitp CIO A 



; addr of frame header ID bit (0 ■ . low* 

• V- " ■ U - high) 

.;if high rate, select Allowed table 

; addr of low sampling allowed table 
; addr of the BAL bits table 
.-maximum position Allowed_3 table 
,-go. to store Allowed table address. 



_bitp_ooo_A . }■ 
;h'igh sampling rate: 

; set the proper Allowed table address based on. working MAXSUBBANDS (y:<maxubs: 
; if less. than 27; used table 2 



move . . y : cmaxsubs , xO . 
move #>27, a = 
move. #>17,xl 
.move ;- ■ «skftbl_l.rl- : 
cmc J xO.a . ~#Al lowed l.rO 



" jle ' <_bitp_010_A 
; select the lower. bit rate Allowed table 



? get current MAXSUBBANDS 

;to see which of 2 tables applies 

.-maximum position Allowed_l table , 

raddr of -the BAL bits.tabie " 

;see if need the low bit rate table 

; & .set up as Allowed_l table 

;Allowed_l table applies, " 



imove • #Allowed 2^0* 
move tskf tbl_2, rl 
move. #>16,xl~ 



; addr of the BAL bits table ' 
; maximum, position Allowed_2 -table 



.bitp_:ic_A-; 

";set the address of the" selected Allowed table .. 
; set the address : of the selected BAL' s bit table 
;set the maximur.- position code- 



X 
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'...'move • r- .y:AllwAdd .V... .-:'"*■ 

move ' rl ,x:skf tbl . 
■.move . xl.y:MaxPos : - : 

; determine the' bits required for ancillary data (taken from audio pit "pool:.: 
start with bits required to. store the padded data byte count in frame. . 

move . # >BITSFORPADDING , b > ; bits in the. padded byte 'count 

: move . y:maxbytes,yl \\. ;get max bytes at baud rate 

move y:<bytecnt,a : ;ge* current count, of bytes received 

. cmp yl.a . #>BITSPERBYTE,xl " ' .; see max versus current count . 

; & set multiplier ■ 

ige c bitp 00 . ;if nic-e than max. can cnly.send max 

■.' move- aTyl " . ..; less than max* 9end all received. 

_bitp_00 ■ ;V 

.•multiply 'the bytecount for bits per. .byte. 

'■' mpy ■ xl,yl,a ;to get. the required bit 

asr .a . yl ,y :<bytesf rm. .-shift integer result 

';. & set byte count for framing . .." 

■move- aO.a 

add a r h .-add to the count of bytes 

•-. move- b,y:ahcbits ■'. ;set ancillary data bit count 

;set the number of fixed bits used, and the number. of available bits for audio 

■■ clr • a '. . #0.xl' : ' ' • ;0 a.. as accum, zero CRC checksum bit cnt' 

.-set the address and bit offsets to identify the. end of . the. current full frame 
; and set .the end cf the formatted frame 

..." move , y:<f rmnext ,fl ■: .-address for start the next frame . 

move \ .y: outsize. ml : .-circular ctl addr the framing o/p buf 

..•set the fixed cits for the' audio' frame 

' move . • #>NSYNC.xO ' ..-number of SYNC bits . 

add 7 xO.a .»>NSYST,xO . ;pius number of bits in frame system hdr -,. 

add xO.a . x:skftbl,rO ;get base of used bits, table 

. iclr. *PRC7ECT,y:<stereo. J3itp_35. .-skip checksum bits if no protect 



move 



tt>NCRCBITS.xl . Tadd applicable bits for the checksum 



bitp 35 

- , - add ' '".xl.a . ■' ;add checksum protection, if any . 

.•account for .'the .bits required for protection encoding ■ 

move " #>REE3 SOLOMON BITS.xl ...-bits required for Kadir's routine 
add " xl.a ~ '■■ 7 '- ?add protection bits to fixed bit cnt 

•accummulate the bit allocation bits for* standard number of sub-bands 
;. included in. the frame for .the left- and right ; if applicable)..: v ;. 

do'- - y : <maxsubs,_bicp_50 ■ , ' 

accumulate for the channel . ; 
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' r "... move ■ 
add,; 


x: irC. *,xl. 
xl.a ■ 


_bitp_5C ■ 
, ■ : . move 
: move - 


- a, xO : 
y : f rmbits, b 


; subtract any 


bits required' for 


move . 
sub . . 


y :ahctits,yl 
yl'.b 


_bitp_80 

*" . .. ■ sub 

move .' 


•• a.b '.• . 
b ' xl 


" ; now determine word and bit of f 


.. add 
add 


yl , b 

a,b ,#>24,yl 


move 


y:<f rmstrr ;rl : . 


_biip_SG • ' 

' " ■ " cmp 

■-■ jit/' 

• . sub 
■ . imp 


yl,b 

< bxtp_ioo ; 

yl.b ~ (rl.-J ♦ 
<_bicp_90 


,_bitp_iOO "/• 
■ ; move" 
' ; move 
move . 


r 1 , y : audendw 
c, y: audendb 
y :< linear, ml 


TtS "■ 




. ;bitsallc; 

, This 


subroutine starts' 



; re turn fixed bits 

.•total size cf frame ir. bits 



.; total bits -' fixed bits ■ 

.; return number of audio data bits avail 



;restbre bits for. ancillary data 
; restore to full audit frame si2e 
; 4 set number bits in a word ■• 
; count words to last word in frame 



• t see- if - reached last, word 

;if so, set eoframe Word & bit offsets; 



.; to identify end cf audio part of frame 
;bit offset end of audio part cf frame 
; reset to linear buffer control-' 



This subroutine starts the bit allocation cf values into the . . 
frame buffer values are inserted by setvalue C ; and by. oitfree;) be. 



m exit 

,V: <SC • » 0 



yzccurwd - initialized (Si 1st word in frame buffer 
a » destroyed 



bitsall: 



■ move-;-' #0 , a • 
move a.y:<sc . 
move • a r y:<curwd 



: ; initialize the shift count ■■ * 
^•initialize curwd list bit in op frame: 



rts 



;' page ']■■;' ■----.-.;--..•.■/>-■'■ , 
; b "" S " re rhis rcutine flushes the last bits to the output buffer 



:r. er.trv 



ri « a: 



■dress cf next word the output frame -buff e'r ' x memory 
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or. exit 
.. a -destroted 

b • destroyed . 
■ xG • destroyed 
; , ■'. X- " destroyed , 
y0 • destroyed 
; y i . destroyed; 

section highmisc 
' xdef ' . . audendw 
' • ' xdef . audendb 

org .* '.yr.e:-: 
sthitsallc_yhe 



ai^Annw «• ■ '• l -address c£ end of audio pert icn cf . frame .* 

"dendb ds ' ' 1 ' '" ^;.;bit offset to end of audio portion of frame; 



audendb ds 
encxitsallo^yhe 

endsec ' _ ' . ' . 

bitsfree •' 

; see if all of the frame has been output totally 

. move . y:<frmnext.xl : !. : .-g« address for start . of next frame 

move r6 b ; next o/p address of current frame- 

™« xl'b *>24.a - ;if addresses - start, done 

. ^ Xl ' b - ' - - • : ; and set up. for the nexttest . 

• jeq '. <_free_90 : ' ;frame done, exit 

;see if the last word of the; frame is to, be " output next- . 

move y:<frmlast.xl . . ;last word address of current frame 

™p xl.b . y:<sc;x0 ; test if address - last wcrd 

cmp . -and get number cf bits in last were. 

' ieq <_free_20 ; last word. chk. block sec number neeae: 

; output last parrially formatted data word before zero fill remainder cf frame; 

.get number of bits left •". 
;24 - number of bits left 
;not partially formatted y:sc C 

: .-get current output word . 

; output the necessary # cf bits * 

' '.-save in the output '■ 

■;v" ;zero the current bit cf fset /. 



sub ■ 


x0,a *>24,x0 


cmp. 


xC,a »0,x0 


jeq 


<_free_05. 


move. : 


. y : ccurwd.b' 


rep 


.a. - ' ."' , . 


lsl / ; 


b. 


move 


• bl.x: (rSi* ■ 


move ■ 


• xCy :<SC 



•free 05 
• " ' cir 



•output zero. for remainder cf frame 



. _free_l0 -;'-y : . \ 

: ; see if the last word ct the frame is to be output . next . : ; 

.w y : -' : ' ■ ; next o/p address cf current frame 

<-•.., -.move . rt.D.,. . . * ■ 
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cmp 
move 



free 20 



move . 
move, 
move 
move 
sub, 
- sub . 
tst \ 

move 

, 3 sr ; 



xl.b 

<_free 20 
ai.x; (rS) * 
< free 10 



*0.y0 . 
«0.x0 
:#>24.a 
y:<SC.yl 

yi.a 

. xO , a ■ 
a 

<_free_90, 

a,n4-.- 
<setvalue 



. .see if last word next 
..-last word, chk block seq r.ur.ber needed 
; output frame word and mermen; addr- 
[•continue to flush the buffer . ... 



;in, 



Lt with zeros to pad last 



word 



,imt with no bits req for seq number; 
ibits'in the word. 
;get current formatted word. offset 
r bits remaining 

i ; b'its required for block seq num. ' 
•test- if any 2ero bits to output.. 
; if none, . try . the block, seq hum 

; ; number of tits to output • 
;pad word with 2eroes as needed 



free 9C ' ■ 
■ rts 
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V ." ; ": ( \ " ■ '" ' ..";.*". -111 - . ■ v . .-. =."'■_■ 

; opt . • . f c, mex " \ ' 

■ -.:"c> 1995. Copyright Corporate- Computer Systems, Inc. All rights reserved.' 

i \DGCST\xraicrmus.asm: Reed Solomon version for. DigiCast 

/ ••title; 'Micro MUSICAM Transitter Main' - 

; ;7/23/92) xmicro.asm micro MONO version of XPSYCHO and XCODE "combined ; 

include "•' def. asm' 
include ' . . \'common\ioegu .asmv 
" .include. 'box_ctl.asm' ■ "• - . - . . 

■ •' : section lowmisc ' 



XucI •. 


WU £ U w d V. • 


xdef : 


word~in 


' ' * V* ' xdef /' 


. startyli .. 


. xdef 


* nct_appl ■■ 


xae*. 




xdef 


oldccs 


xaet 


UScuaD 


xdef 


stereo 


xaet 




... xdef 


. oprptr 


' xdef : 


butmus . . 


xdef . 


outsize 


xdef 


f rmstrt.' 


* xdef 


frmhext . 


" xdef - ' 


frmlast 


xdef 


• timer 


xdef 


timeout 


xdef 


qt alloc 


xdef 


ipwptr 


xdef 


polys t 


xdef : 


nmskf reqs ' 


' xdef 


■ maxcritbnds 


■' xdef • 


linear 


xdef 


junk 


xdef 


endyli 


xdef 


dbgcnt " . 


xdef 


limitsb 


org' • - 


\yiiVv - 


stxmicro_yli . 




word_out 


ds .; i 


,word~in . 


/ ds , .' * 


startyli 




not_appl 


ds ,-l ' ' 


.maxsubs : : ds . 


: / 1 ■ 


oldccs ds 


■• * 



.•applicable hardware : output ' (leds, switches). 
; applicable hardware input (switches, lines) 



.•satisfy non-applicable hardware settings 

•working MAXSUBBANDS for sample/bit rate. 
;encode MPEG-ISO or old CCS CDQlCOO'.s 
• 0 - MPEG- ISO . 
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usedsb 
stereo 



ds 
ds 



; 0 
,* 1 
/bit 
; 0 
/ 1 
/bit 
i o 
1 

/bit 



1 - -old CCS .CDCiOOO's* "■ 
number of used sub-bands - 
y:<stereo « flags:.' 

bit 0 means stereo vs mono framina- • 
stereo framing 
mono framing 

indicates left vs right channel ' 
looping thru left channel arrays 
looping thru right channel arrays 
indicates joint stereo applies - 
NOT joint stereo framing type 
IS joint stereo framing type ■ 
indicates curr frame. upgraded to 
full stereo, by joint bit allocation 

(if joint stereo applies) 
' 0 » normal joint stereo allocation 
la FULL STEREO allocation 
bit 4 indicates the stereo intensity 
sub-band boundary has been reached 
■ (if joint stereo applies) - . . 

0 -'NO sub- bands still below 

intensity boundary 
;.l « sub-bands above intensity . 
boundary - 

bit 5 is- FirstTime switch in a loop . 
• thru "the bit allocation 
v- 0 -cleared if any allocations." 
were made 

1 « no allocations made: to any 
■ ' sub-band 

biz & indicates a below masking 
threshold allocation pass 
some . sub-bands not below mask 
all sub -bands are below mask 
indicates a below hearing 
threshold allocation pass : 

0 « some sub- bands not below hearing 

threshold 

1 « all sub -bands are below hearing 

threshold . 
bit 8 indicates final bit allocation 
passes to use up any available bits 

0 - not yet 

1 -allocate remainder in bit pool 

bit 9 indicates limit of sub -bands requiring 
. a: least one position has been reached:. 

0 » not yet/ 1 - limit reached 
bit 10 indicates maximum limit of sub -bands 
.'that., are to be allocated has been reached:. 

0 -.not yet/, 1 - limit reached " 



; 0 
; 1 
;bit 



cmprsctl 



oprptr ds 

outmus ds 

outsize ds 

f rmstrt ds 

. f rmnext ds." 



ds 



.; control flag for CCS compression: 

;' bit 0- » application: ■ 

; .0 - ISO standard 

l - CCS compression applies 
■/read pointer. into .output frame buffer 

/number of words to read in 

/circular buffer. ctl frame o/p buffer 

/starting addr of current ■ frame ." 

/starting addr of next frame 
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frmlast ds 
timer ds 
timeout ds ■[ 
qtalloc ds 

ipwptr ds 
poly st ds 
nmskf reqs 
maxcritbnds 
•linear ds 



junk ' 
endyli 



ds 



dbgcnt . dc 
iimitsb dc 



1' • 
1 ■ 

1 

1 ■ 
ds 
ds 

1 - 



;last word addr of : current frame 
. ;0. 024/C .036 msec timer interrupt sensor 
.; 0 . 024/0 .036 msec timer interrupt exception 
;0. 024/0. 036 msec timer interrupt bit alloc. 
; signal bit' allocator to finish up 
; write pointer into input inpcm buffer 
; addr of the poiyanaiysis start.. 
; NMSKFREQS based on selected sample rate ; 
; MAXCR I TBNDS based on selected sample rate', 
.-reset mX as linear buff er control . .. 



! ! '.debug 



;!!tdebug counter of flag..' 

; LIMI7SUBBANDS ; sub-bands, req at least 1 allocation 



endxmiero_yli t 

>' * endsec 

' section ptable 

xdef : ptable r. v 

xdef • • a_psych.b_psych • 

xdef c^psych . d_psych ■ 

:. .xdef e_psych. f jpsych, g_psych ■■ . 

xdef h_psych,i_psych, j_psych . . 

• xdef k psych ,1 psych, m_psych,n_psych, o_psych,p_psych 

xdef o£psych,r_psych,sj)sych..tj)sych,ujsych / v - psych t w_psyci 

xdef y psych, 2 psych 

xdef 2 i_psych,22_psych,23 - psych.z4 - psych # z5_psych,26_psych 

■ org " yli: : ■ 
stptable_yli 

ptable ' . • ' • ' 

•;this table is known as IRT 



, x_psych 



a_psych 
b_psych 
c_psych 
d _psych . 
'. e_psych 
,.f jpsych 
g_psych 
h_psych. 
i_psych 
. j_psych 
k_psych 
l_psych 
m_psych 
n jpsych 
ojpsych 
p_psych 
q_psych 
rjsych . 
s jpsych 



dc 


0. 


04 67146. 


dc 


0. 


0498289 


dc 


0. 


0259526 


dc 


0. 


0496289 


dc ' 


0. 


08B2387 


dc 


0. 


4000000 


dc 


.0. 


031143i 


dc 


0. 


,0882387 


dc 


0. 


0882387 


dc 


0, 


,1000000 


dc. 


0.0000000 


•dc 


0. 


,0000000 


dc 


0, 


,0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0 


.0000000 


dc 


0.0000000 


dc. 


0 


.0000000 


,dc 


:0 


.oooooco 



;B 
;C 
;D 
;E 
;F 
;G 
;H 
;I 
;J 
;K 
;L 
;M 
;N 
;0 
;P 
;Q 
?R 
;S 



curval- 

curval- . 

curval- 

curval- 

curval- 

-curval- 

curval- 

curval- 

curval- 

curvai- 

. curval « 

curval- 

curval- 



9 dB 

.3 dB/Bark 
5 dB 

.3 dB/Bark 
17 dB/Bark 
;.4 1/Bark 
.6 dB/Bark 
17 dB/Bark 
17 dB/Bark 
.1 1/Bark 
•0.0000000 
0.0000000 
0.0000000 



CCS compression - NO ~< 
curval- o.obooooo 
curval* ..0.0000000 . ■ 
curval*' .0.0000000 
curval- .0.0000000. 
curval- . 0. 0000000 



.5 . >« 



YES 
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t_psycr. 

u_psych 

v_psych 
. wjsych . 

xjpsych 
. y_psych 

z_psych 
: zl_psych 

z2_psych 

z3 3 s y ch 

z4_psych 

2 5 Zp 9 Y ch 
z6_psych 



dc 


.e- 


.0000000 


•■. ;T curval- . 


0. OCOOOOO 


dc. 


c 


.oooocoo . 


* ;U curyal« 


0.0OC00OC 


dc 


c 


.ocooooo 


;V curvala 


0.0000000 


dc 


c 


.0000000 


;W curval- - 


0.0000000 


dc 


c 


.0103810 ■ 


;X curval* 


2 dB/Bark 


dc 


0 


.0259525 


;Y curval-.' . 


5 dB/Bark. 


dc 


0 


.0415239,; 


. ;Z curvalV 


8 dB/Bark 


dc 


0 


.0000000 . 


, V . ;Z1 curval- 


0.0000000 


dc 


0 


.0000000 . 


;Z2 curval= 


0.0000000 


dc. 


0 


.0000000 


' ;Z3: 4 - to 30, 


* used sub 


dc 


0 


.oooocoo 


.;Z4 curval- 


0.0000000 


dc 


• 0 


.0000000 ; : 


;25 curval- ' 


0.0000000 


dc 


0 


.0000000 . 


;26 curval » 


0. 0000000 



i mono) 



endsec 




sect ion 




xdef : 


st arty he. ; 


xdef 


bit rate . 


xdef 


frmrate 


xdef 


smplcde 


xdef 


smplrte 


xdef 


. smplidbit 


xdef . 


bndwdth 


xdef 


frmtype 


xdef 


ppf rtyp 


xdef- 


baudrte 


xdef 


oputcde 


xdef 


f rmbits 


xdef 


f ixbit's ; 


xdef , 


audbits 


xdef . 


ancbits 


xdef 


stiatns 


xdef . : , 


b_i . 


xdef 


. f map 


xdef 


ThresSLB 


xdef 


Threshid 


xdef 


cb . 


xdef 


g cb 


xdef 


dbaddtbl 


xdef / 


plctmn 


xdef : . 


endyhe . 


xdef 


samplhg 


xdef.. 


bitrates 


xdef 


baudclk 


.org. 1 


..'yhe:- . 



stxmicro_yhe 
startyhe. . 
bitrate ds ... 



;bit rate code forMUSXCAM frame header 
; sampling rate 48 K or 32 K:. 
: ISC and old CCS CDQ1000: ^ 
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fimrate ds 



• smplcde ds 



sraplrte ds 



smzlidii: 



ds 



bndwdth ds 
frmcype ds 

opfrtyp ds 
.baudrte ds 
cputcde. ds 



frmrits ds 
t ixbits . ds. 
audbits ds 
ancbits ds 
s;m:ns ds 

b .i ' ■ 
fmap. ' 

ThresSLB 
' ;7hreshld.- 
' cb - 
.g cb-;' 
dhaddtbl 
picrrtr. .■ ds 



ds 
ds 
ds 
ds 
ds 
ds 
ds: 



• "3 (00111 « 55 KBits 

4 <01CC). - 64 .KSitS . 
sampling rate 24 *K or 16 K:\ 

; ■ ■. ISO : '•' > 

;. .7 (0111) - 56 KBits ' . 

■ 8 (1000) • 64 KBits ■ 
; old CCS CDQ1000: 

; '. . 3 (0011) - 56. KBits - • : 

' 4 (0100) . - 64 KBits 
; overall frame bit rate as to hardware 
; . switches. 11. bit) indicate 
; bit rate sets numb words in a frame: 
; , ■ 0 - low Kbit rate 

1 - high- Kbit rate 
; sample rate code in MUSI CAM header: 



ISO: 



00 
CI 
10 



44.1 
48 K 
32 K 



K or .22.05 
or 24 K 
or 16 K 



Old CCS. CDQ1000: 



00 
CI 
10 

11 



16 K 
48 K 
32 K 
24 K 



and 32 K sample rates 
and 16 K sample rates 



;POfl data sampling rate: low vs high rate 
; depending on flag in box .et'l .asm that 

indicates the pairing .(16/24, 16/32, 16/48, 
24/32, 24/48 or' 32/48); 
switches (1 bit) Indicate . 
.0 - 16000, 24000 or 32000 
; - 1 • 24000. 32000 br; 48000 

•hdf id bit: - ; 

ISO: 

1 for 44 .1, 48, 

0 for 22.05, 24, 
old CCS CDC1000: • / 

1 is always used with special sample . " 
rate codes in the header i above; 

,-code- for setting sub-band limits 
;cip switches (2 bits) are 'set to:. 

11 » (3) mono : (1 . channel) 
; current frame type after bit allocation \ . 
■; ancillary data baud rate 
;type of cutput coding: MUSICAM.vs G722 
;•. - switches (1 bit) indicate •■ 

\ 0 - MUSI CAM frames 
..; , m 0122 data 

; bit's in the audio portion of frame . — 

•bits required before audio data bits 

.•number of bits available for audio data 

;bits required for. ancillary 'data current • frame 

•intensity subband boundary code 

;addr b i table for low or high, sample rate 

;addr.fraap table for, low or high sample rate 

; addr ThresSLB table for low br high sample rate 

;addr..Threshld table for low or high sample rate r 

;addr cb table for low or high sample rate 

;addr a cb table. for low or high sample rate . 

; addr DbAddTbl - 

; successive phase lock-detect high center mair. 
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endyhe . ,\ . : : • ■*/ . 

.•table of sampling races. 

SAMPLERATES • . : 
■"; table of- bit rates/. V"'-: ■ : 

. BITRATES \ ;,. /- .' 

;baud rate table for ancillary data ■ 

baudclk . "'V'V 
endxmicro_yhe '.' . 
endsec ..." 

• ore ' phe : ' ' ' \ * ."".'■■*. 
•start ■ 

; The external wait state is set to 1. This allows the HCT541's to. 
put their data on the bus. in plenty of time... 

raovep #$0001,x;<<M_BCR. ;set all external io wait, states 

;set dsp56002 clock to selected MHz (PLL Control Register) 

. * XCODE_M_PCTL . 

; ' PORT C Assignments 

'; ..- s » ssi port. - 
.; i'm input port* 
. .; o » output port .• 

XCODE PORT C M PCC ;set port C control register . 

XCODE~PORT~C~M~PCD set output data to portC 

XC0DE~PORT~CjCPCDDR ; ; set, port C data direction . reg . 

; initialize the ssi port for. the ad converter \ ■ _ 

XCODE SSI M CRA - .-set ssi. era register . . 

XCODE~SSI~M~CRB . ;set ssi crb register . . . 

.; initialize the sci port for tty .. 

1 . ■ " . ; '. XCODE SCI M SCR . ;s«t sci status control register 

: - ; PORT B Assignments ; ■ 

; 14 13 12 - 11 10 9 8 - 7 6 5 4 - 3 2 1.0 .. 

- ; o.„ o ■' i o i i o o i i i i i i i 

• XCODE PORT B M PBC ,set B control register for general. 10' 
XCODE" PORT~B~M~PBD .. . ;set the. default outputs 
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-' , • * . t *. . .117 -- ; ' • •• • • •.- .. " - • ■ . . 

... . xcODE^PORT^M^DR /. ;set 9 register direct.cn . , 
initialize the host interrupt vector : 

■ ' I. INITJ*OST_VECTORS_CD . . " ' 

.restart' -.■-.*. : _\ : -'*..■ ' 

:;/sez the interrupt for host interrupts 
.; HOST set to IPL 2- .. . 

^'Tfto .c»- int oriorities and edges 

. n.ovep «>S080C.x:«M_IPR . , : . ^ lnterxup - sys tem. ... 

audi. v. * S i c , tnr ' 

.;• cri • - #s:-3 ,mr ' *- : ' ' ,- : 

. nop ' ' '; " ■ .; 

; ■ *"; nop : \ ..... / : \ '■'-..}' ' . :"• ' - . "". "■ " : : ' 

nop' - . : : '*■" • ' : . . ,"- - - . ' ' • ; ■. .-■ 

' -, = lear: the analog to digital converter t= restart calibrator 

■ CLR_ADC_RESET. 
- /disable the ancillary data received interrupt 
bclr #M_RIE.X:<<M_SCR 

■ ^.■'•'■'■ m ove-' ; "#^ ■ 
■ move • ■ b.y:<*ord_out . .: ; . 

•••.•-••••••••::::::::::::::::::::::::::::::::::::"•^:"•»""" : 

'. • "* „ ojcODEE AND PUT INTO A HIGH MEMORY, 

; TEST DATA •. 

•initialize the buffer tc be. encoded for testing ' 

' ■ ._ ..■ '..indicate n© problem with Reed Sciomcr. 

... ' OFF RSES.SOL.LEC CD '.Zode the 1st of the encoded frames 

. move" ttframebuf.rq- ... ' '." ro - n e test value accunuiatsr 

\ clr ■«■ ■ . .«>l.x0 ... ;^ r ° 0 -2ncrem«nt xn the. test buffer 

..-' :S et the'fra^buffer:^^ 

." do ft96,_initl , 

add xO.a 

move al,x:.(r0)* • . • : :-\ 

' Cthe reed sol omon - encoding on the test/frame buffer v - 

^ ■ « . i/p pointer of buffer to.be RS-CO^E- 

. : move . tfratnebuf .rO . buffcr 1S circular - 2 frames ■ 

move , #Sbf,tnO .\ ■ . pointer fcr -CODED data to be sto.e- 

.... * move *reedsolbuf ,r. . .. 'encode. via reed solomon 

■;. : . " jsr ' <new_rs ; /'/.'":'.... _ 

■ ■ ; test if the. reed solomon : codec worked or -NCT; - - ; - • 
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neve * reeds elbuf , rO 
mcve #RStest.rl- 



;o/p pointer for CODED data' :d be store 
.-pointer for the veri!::a;::r. table- 



•verify that '-'the reed sclomon coded values are correct 



Same 



RS Chk 



do ' #96. JlSJThk : 
move x: iro> *.x0 
move x: <rl> +. a . V 
cmp xO.a 
■ ieq' *_Same 
• ON R£ED_SOL_LED_CD ■ 
enHdo 
nop 

nop ■ • . 



ON_ALARM_LED_CD 



;Get -current coded data output 
;Get pre coded look up table value 
: compare 2 values 
.If SAME No problem . 
indicate no problem with Reed Solomon 



. -light alarm led indicator 

T~ST~ SET ALARM_RELAY_CD. set_ied_;0 . .-unless already set. 
S£7~A1ARM RELAY CD ... . ~" . ;set the alarm relay line on 



set led_0 

SET_LEDS_CD 
. INTERRUPT HOST CD 



; inform the host 



Clear ail of. the y memory 

. clr ' a ' 

. move ' #$ffff .m0 

•move #startyli,rO 

move # iendyli-startylii , 

• ."rep rl 

move. a.y: (r0><- 

move #startyhe,rO •. , 

• move #(endyhe-startyhe) 
' rep ; . rl 

move . a.yi.lrO* * . . . 



;value to set x memory to... 

; just in case, set to linear buffer 

;set starting address low y-memory 

;set loop, count. 

; clear it 

•set. starting address high y- memory 
; set loop count 
; clear it ... 



.set linear buffer control../ : 

•move •'. : mO,y:<linear ; 

•set the CRC-16 protection checksum as applicable and set the 

; CRC-16 checksum mono frame bit count for the old ISO method: 

•a. header bits covered by any type of frame _ 

;. . plus bits for the left channel also apply to any type of frame 

• b. save old ISC bit count, for tJiis frame . 



bset 
move 
move 



t PROTECT y:<sterec .-checksum protection applies ;i-YES; 

#>CRC BITS A+CRC BITS B.a . ; header plus one channel cits 
- — - - • - ;aet the old ISO CRC-16 bit count 



a,x:crcoid 



; check the switches to determine bit rate . and framing type 
iget the external switches to determine: 

; PCM input data sampling rate , ■' ' ' t^nar r**/ ~-t ->->■- 

: type of. audio compression to format for output (MUSICAM/w722; 
i" -if MUSICAM. the frame bit rate 
•; ' if MUSICAM; .ancillary data baud rate 

. GE?_SWiTCHES_CO gsws_03 
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■3*- 

move 

move 

move 

move 

move 

:move 

move 

move 

move 

move 

move 

move 

move,. 

move 



<getsws ; 

x:cstsrapl,yl 

yl,y:araplrte. 

x:tstfrme,yi 

yl.y: frmtype. 

x:tstband,yl 

yl,y:bndwdth 

x:tstcode,yi 

yl,y:oputcde 

x:tstrate,yi : 

yl*y :f rmxate 

x : tstbaud, yl 

yl , y:baudrte 

x: tstoccs, yl 

yl,y:<oldccs 



rset framing mode led 



move 
move 



y : frmtype. xC 
xO,y:cpfrtyp 



;set PCM data sampling rare code, 
.•set type of. frame imonoj to code 
•set bit allocation. sub-band width code 
; type of encoded output (MUSZCAM/3722 ) 
;set. the frame rate i/p code ■ '' ' 
;set ancillary data baud rate code 
;set MPEG- ISO vs Old CCS : C3Cl'CC0 ; 8 . 



;set current frame type 

; set current frame type fcr output 



/indicate" mono framing; icr.ly . frame type, supported). 

baet , #STEREO_vs_MONO\y:<stereo 
.-based on sample rate (low or highi set the addresses for various tables: 



; address of fc_i .table for low. rate 
.address of . f map table for . low rate 
; address of ThresSLB. table for low rate 
.; address cf Threshld table for low rate 
;address cf cb table for low rate 
; address of g_cb table for low rate 



move . 


y:smplrte,b 


tst 


b 


.jne 


<_hi_tables 


move ." 


. #b ilo.rO 


move 


tfmaplo.rl 


move 


#ThrSLBIc, r2 


move 


*7hrhldlo,r3 


move 


*cblo,r4 


move 


tg.cblo.rS 



•indicate coding at low sampling, rate for compression 
bclr #LOW_vs_HIGK_SAKP-ING.y.:<stereo 
< set tables /... 



• ;. :«■?.■/ 

J?.i_tabies ■ 
~ . move 
" . ' " . move ■" 
. move . 
; ■'. V move- 
: move 
move 



#b_ii'o,r0 
#fmaplo.rl 
#ThrSLBlo, r2 
#Thrhldlo,r3 
■ #cbio,r4- . 
#g cblo.rS 



,-address of b_i -table .for high rate *. 

.•address cf fmap tabie for high rate 

.•address of ThresSL3 table for high rat 

.-address cf Threshld table for high rat 

address of cb table for high rate 

.•address of g_cb table for high- rate .'. 



: indicate coding at high sampling. rate for compression 
■ bset ^l^W^vs^KIGH^SAMFLING^y^stereo ; 

se 1 



K tacies 
move 
move 



rD.y:b_i 



f - set addr of - t_i ■ table selected • 
.•set addr of fmap. table selected 
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move 
move 
move 
move 
move 
move 



r2 , y :7hresSLB 
. r3 , y :?hreshld : 
r4,y:cb 
r5 ,y :g cb 
#DbAddTbl_6db, r3 
r3,y:dbaddtbl 



;set addr of ThresSLB table selected 
Threshld table selected 



;set aaor c: 



;set addr of cb table selected 
;set addr- of g_cb table selected 



;based on the sampling rate and framing bit rate selected: • . 

set the sampling rate, code for the ISO frame header 
; : set the framing bit rate code for the ISO frame header 
• set the frame size, in words and bits 

set the applicable bit allocation control parameters 



move 
move 
tst 

. jeq 

rep 
move 



tsamplng. rO '■■ 
y:smpirte,b 

b ... mc.no 

<_sraplcds_ 

b ''' 

irO) *n0 



,addr of . sampling rate codes . . 
;offset to sampling code table 
.test for sampling rate of .zero ; 
; k set register to advance thru 
;if code is zero, we're there 



■table 



; position to selected sampling rate code 



- smplcds_ • 
" . : . move 
move 
move . 
move 
move ; 
move 
' move 
. move ' 
bclr- 
jclr 



y: <r0)~,x0 

xO,y:smplcde 

y: (r0)*.x0 

xO , y : smplidbit • .. 

y: (r0)*.x0 

xO , y : <maxsubs 

<r0) * 

#4. no " •' 

ttO.'y :ccmprsctl. 

no , y : col decs , _smplcf f s_ 



; er.coding old CCS CD01000 . 

move y: (rO)V.xO. : 

move fcsmplidbit,rl. . 

move xd,y:smplcde 

jset no.yi irl> ,_no^compress_ 

bset \ *C,y:<cmprsct. 



;get ISO frame header sampling code 

; save ISO code to encode in frame header 

.get ISO frame header id bit 

;set ISO : frame header id bit- ' 

;get mono channel MAXSUBBANDS 

;set wording MAXSUBBANDS 

; step over dual channel MAXSUBBANDS 

;in case of MPEG- ISO 

;CCS compression is not applicable 

;if MPEG-ISO. skip over old CDQlOCO's 



;old CDQ1000 frame header sampling code 
;to checic ISO frame header id bit 
;save old code. to encode in frame header 
;if ISO high sampling, no compression". 
;do CCS compression encoding.. ,.' 



_nc_compress_ 
" " . . move" 
move . 
; move- . 
■' " move 
move. 
: jmp • 



y: trO) +.x0 
xCy: smplidbit 
y:';r0)*,x0 
xO , y : <maxsubs 
(r0» ♦ 

< aftscds_ 



._smplcffs_ 
;MPEG-ISO encoding -. 

move irC* *n0 



;get old.CDClOOC frame header id bit ■ 

;set ISO frame header id bit 

; get mono channel MAXSUB BANTS 

; set working MAXSUBBANDS 

;step over dual channel MAXSUBBANDS 

/continue 



..•skip over old CCS CDQ10D0 values 



af tscds 



move 
move . 
move 



y : trO) *,x0 . 

xO , y : <maxcr itbnds 

y : irOJ ,x0 : . > 



;get MAXCRITBNDS ..value. Q sample rate' 
.•set MAXCRITBNDS at selected sampling 
;oet NMSKFREQS value $ sample rate . . 
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move - . x: * y : <nmsicfreqs 
move y : f rrr.rate, b " 

move . ftbitrates, r6 
.LSI. . #8, no • 

jeq < _ D i t _ c ^f s _ ' . . 

rep .■ b \ - 

move • !r0> +nC " 



;set NMSKFREQS at selected sampling 
.-test bit rate to set ' audio data size . 
..-.addr cf framing bit rate.infc 
; test for rate cf zero - 
:; & set- .register to • advance thru .table 
;if code is zero,. we're there 



.; posit ion to selected bit rate code 



_bit_offs_ •" 

;set the .table offset based on sampling rate' 



move 

■ ,tst". 

move 
_bit smpl 

. move 



bit cds 



move . 

jset 

move 



aftbcd 



move . 
move 

move 
move 
move 



y:smolrte,b 
b .-ft4.no 

^bit_smpl_- 

• b ' ' 
irO'-nO . 



UC , y: <oldccs. bit cds 
(rOi - • ~ ~ 



y : (rCi * ,nl '-."' 
#0, y :<oldccs,_af tbcd 

..(r0)*" •■ 



y: (rO. 1 *,yl 
y : irOJ . r2 . 

r.l, y :bitrate 
yl , y :<outmus 
r2,y :f rmbits. 



; get the sample rate: code 

'; test, if low sampling rate • 

set offset to proper sampling. rate 
;.if low rate, addr is: set 



; posit ion to selected sample rate 

;if MPEG- ISO, continue 

;adv to. old CCS C2C1000.' s code .- 

;get bit "rate code for frame header. 
;if old CCS CDQlOOO's,- continue :-. 
;skip oyer old CCS.C3Q1C0G code 



;selected bit rate frame size in words 
; number of audio bits in an output frame 

/audio bit rate code Cor frame hdr 
;set ft cf words in a frame 
;musi cam audio pcrtior. cf frame 



;set bandwidths based on sampling rate/ bit rate and band width se lettj.tr 



move 
move 

3 sr. 

move 
move 
move 

cmp,' 

jit-; 

cmp 
jit 



y :smplrte,b 
y:f rmrate,a 

< bandwidth 



;set bandwidths based on sampling rate 
; set bandwidths based cn frame bit rate.. 



y:z3_psych,a . Vget the selected sub-bands, if any 

a,y:<usedsb . ; set. initial used sub-band value 

ft >KINSUBBANDS ZZS.xC ;set minimum sub-bands to be used 
xC.a ft>MAXSUBBANDS_CCS,xO . ;see if subs is toe small. 

" & set default value, of maximum- 
\<_def ault_used_00 • ;if less, default the. used sub-bands" 

x0,a '." : ,: ;8ee "if less than maximum sub-bands ' 

< after used 00 . ;if less, we're ok 



;_def ault_used_00 ■ 

..•default- the used sub- bands to max sub -bands 

.'move '.. • xO, y :<usedsb ; 
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_after_used_:- 

; calculate buffer length controls 

move ' #>2 , xl 

ntpy • •■ xl,yl,a .*>!, xl 
asr a . 

. move " aO , a 
■ sub xl . a : * 
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.set the mod buffer for 2 frames" 
; align, integer result " 1 
.-shift, integer result - 
;Mframe numb words ■•■ 2* - 



; now save the above buffer control values ... 

move ; .\ al,y:<outsize set circular buff er * ctl for- e.-p buffe: 

the type cf stereo intensity code- 'as.' nominal -4 subbands 



;se: 



move #>:ntens:ty_4,x0" 
move xO, y tstir.tr.s 



iho't . applicable 



r stereo intensity code fcr default cf 4 
; save for. frame header ir.fc 



Set output write read pointer to something safe since interrupts. w;] 
be. or. before it is' set properly. 



move #framebuf,r0 
move ... rO . y : <oprptr. 



.address of output encoded frames buff* 
;set the output read buffer 



; se: 



up for ancillary data to be decoded from a framed and transmit via rs232 
a. zerc the input data byte counter and bytes for current frame 
. b. set address of clock. table. baudclk, based on baud rate ;? thru 7? 
- c. set table offset by baud rate; ... 

these are standard CDQ20C0 set by macrc> BAUDCLK , ' in box ctl. asm"...: 
..0 « 300 baud : " * 

-. i » 120C baud ' ' 

2 - 240C baud ' * . 

3 » 320C baud 
■ : 4 » 4600 baud. 

'- ' ' -5 ■ , 3B4C0 baud ' 
6 960C baud . 
.7.- ^19203 baud ' 
■ • d. set transmit enable ifbr xon/xof f ; 

e. get and' set the clock for baud rate from the table 
. f..get and set the max bytes for baud rate from the table 

g. set the- data. input and output pointers " ';* 
• h.- set receive enable.. 
i. set . receive, enable interrupt. • 

;zerc the received. data counter . 
- . ;2erc the byte counter 

..;zero the current frame .byte counter 
;get data baud rate table address 
" ;set to. access clock at baud rate 
;test for. rate cf zero 
. - ; b set register to advance thru- table 
; if ' code .is zero, we*' re.' there 



move 


•. no.xo ."- 


move 


x0,y: <bytecnt 


move 


xD.y: cbytesf rm 


move 


•;. . . . n baud c Ik » r 0 * . 


move 


• y:baudrte,b . 


tst 


b ;;. ... .*3.n0 '. 




<_baudrte_ 


re? 


: -=b ' . . ••• • 


move 


tro;*nO\.. : 



baudrte 



;y. :r:. 



; position, to selected, baud rate code 
,*oet clock value a; ca-d rate . 



'bad original o 
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move . . y:smplrte,nO 

move ' ' ndatabytes ,.x0 

move y: (rO+nO) ,nl 

move nl,y:TRaxbyces ' • 

move. xO, y : <dataiptr • 

move xO, y :<dataoptr 
movep r2 $ x:<<M SCCR 
bset ■" m RE,x:<<M_SCR 
bset #M~RIE,x:<<M SCR 
bset #M~ TE,X:<<M SCR 



; now get sampling rate .offset. 

;get addr of the data byte buffer 

;get max byte, count at sampling . rate • 

; store maxbytes for. scixmt to check 

/address for next byte, received 

;addr for next byte to output to frame 

;set the clock for selected baud rate 

;set receive enable 

,-data expected set. receive interrupt 

: set transmit, enable . 



; enable the host command interrupt 

bset. #M_HCI£,x.:<<M_HCR 
; : Set and clear a ;f lag so we can set the scope .trigger : 



ON BITALLCC LED_CD 
OFF ■ B I TALLO C LED CD 



;set a different flag for debug 



Now form the two pointers to the output buffer., 
frmstrt is the write pointer and frmnext is the read pointer, 
frmstrt is used to point to where the current buffer is for outputting 
data into. This data is a result of the current musicam coding, 
frmnext is used to point to the address for outputting of data 
•to the external device.. •-" 



move tfframebuf ,r0 

move . y : <6utmus , nO 

move y :<outsize,m6 

move r0,y : <f rmstrt 

. move (rO ) +h0 

move r0,y:<oprptr 
move . r 0 , y : < frmnext 
move : IrO) - 

move . rO, y : <f rmlast 

move: y:<linear,mO 



; address of the output frame buffer 

;set the output read ptr . ' 

;set the output buffer circular ctl 

; 1st frame at start of buffer 

;advance to start of 2nd frame / 

;set the output read buffer 

;set the next frame to write into . 

;set up last word addr of curr frame 

; for block sequence numbering 

; reset to linear buffer 



;set number. of fixed bits required, and the number of available bits fcr. audit 



Osr 

. move . 
move 



< bit pool - 

x0,y:f ixbits 
xl,y:audbits 



;save fixed bit count , 

;save bit count available for alloc 



r initialize for receiving data for xpcycho routines. 



move 
move 
move 
jsr 



#inpcm,r0 
r0.y:<ipwptr 
#xbuf ,r0 • 
<polyaini 



;get the input pern data buffer- 
; set start address, for input pem data- 
;set starting position in x buffer 
;init the poly analysis filter \ 



IRQA set to" 'I PL 3, negative edge ( lowest. priority) . 
SSI set to IPL 3 . 

IRQB set to IPL 3 , negative edge (highest priority) 
HOST set. to IPL 2 ■. 

sci ■ set .to ipl 3' 



movep #>Sf 83f ,X:<<M_IPR 



-Yset.int priorities and edges 
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;wait fcr the dust:. to'. settle before pushing onward ~ 

...move' #>XCODE_STARTUP,a 

.; jsr • cwait * * - 

SET_ADC_RESET • ;stop A to D calibration • 

;tesc; MUSICAM. versus G722 : • . ' '*' 

.if MUSICAM, go to the TOP of frame processing . 
• if G722. jump to that, routine and restart; upon return 

move y:oputcde. a . ;MUSICAM vs G722 

tst-. . a . ;if zero, 

jeq <_go_ori_ -\ . ; ; it ' s MUSICAM, . enter that loop* ' * 

jsr <g722 \ - • .;handle G722 . . . 

,*G722 output selected, boot up XMCRG722 , f rom the low portion. of chip 

• bclr. #ll,x:<<M_PBD ;clr boot cOOO for XMCRG722 boot'.! 0000) 
. jmp. <bootup '/boot in XMCRG722 

jmp . <restart . ;restart with new switches .. . 

_9P_ on _ ■ 

; handle MUSI CAM encoding : 

. andi . #$fc,mr • _ ; turn .on the interrupt system ' 

;tnain loop thru the frames of data set up by the left and. right 
; xpsycho.dsp for bit allocation and framing by the.xcode dsp ' ' 

top'' • ■'- .'-".'"' ,. - * ..-'.- 

; idbg . ' • • 
' nop 

• nop" ■. '",-..•'".'.',■' .•■'.'• 

■ move y:dbgcnt , a ■■ 
• ; . ■ move . #>l,x0 -.- 

; . add • xO, a 

.'move a,y:dbgcht 

■ jmp- < initl.. 

;!I!dbg .,:. 

: ; l.::dgcst : bset . WATCH_DOG ; tickle the dog .. 

;»i:dgcst .' bclr WATCHDOG ;tickle the dog 

■ TOGGLE_WATCH_DOG_CD . ~ 

;get the external switches to determine if .any changes that. signal a restart 

CET_SWITCHES_CD gsws_10 
' jsr" . .. ' <getsws 
jclr.' #4 ,y : <not_appl , _lets_go -' ; ! I ! debug . - remove for normal 

•test MUSICAM versus G722: ■ 

if G722, jump to restart 
'; •. '.■ if MUSI CAM, continue' 

■ : move-- x':tstcode,a * V ;MUSICAM vs G722 

*.'tst ■■.'a'. •■■ ■•.■..■;!£ zero, it's MUSICAM 

" ;"'.■ * jne .,' <restart - . ;it's G722, start over to boot;- 



SUBSTITUTE SHEET (RULE 26) 



WO 96/32805 



PCIYUS96/04835 



\ " • -125- ■ 

; : : :2/3/9'3 •'■ • ■ ''■ ■ 

TS7 SET G722_uATA_CD, restart 

"■; \\ 12/8/93 " - " ' ' 

;w« have to restart. with new framing criteria, 

; protect the decoding of .frames by clearing 2 successive frame 



move- y : <f rmstrr , r6 

move. . y:<outsize,m6 

* cir a, 

do y : <outmus,_clear_l 

' move a, x: (r6)— . 

_clear_i 

; ! ! J2/3/93 

TST_SET G722_DATA_CD, restart ■ 

; ! i 12/9/93; . . " ■ . 

jclr . #0,y:<timer._clear_l 

■ - bclr ■ #0,y:<timer • 

move y: <f rmnext, r6 ". 

do y : <outnus,_ciear_2. 
- move : a, x: (r6 > ♦ 

_clear_2 ' 

; ! : 12/8/93 

TST SET G722 DATA_CD, restart 

;! I.:2/8/93 

jclr' «0,y :<timer,_clear_2 

bclr " #0,y:<timer ~. . 



;set starting for output'. buffer 
;set the output buffer circular zz: 



; clear the 1st frame 



; check for new frame 

;set starting for output buffei 

; clear the 2nd frame 



; check for new frame 



y: <linear,ra6 
<restart . 



.•restore to linear buff er. control 
; let's start anew 



move 

_lets_go _, .; t 

^initialize stereo control settings to reflect current transmission 

jsr <"setctls- ; : ; ■ • 

; check for new frame 
..;clr 0.024/0.036 msec timer bit alloc 

/now set .'the used sub -bands for this frame ' 

v ; i3 Dsych a :; get . the selected sub -bands , if any., 

a y-Iusedsb ; set. initial used sub-band value 

# >MINSUBBANDS CCS,x0 . ;set minimum sub-bands to be used 
x0 a #>MAXSUBBANDS CCS,x0 ■■ ; see if subs is. too small 
.'. .; ' ; & set default value of maximum . 

< default used 10 . ;i£ less/ default the used sub-bands " 
x q a " . . . : ;see if less :than maximum sub r bands ' 

< after' used 10 •". "'' ; if . less, we' re ok 



jclr. 
bclr 
bclr 



move 
move 
move, 
cmp 

'•-.jiv 

cmp 

jit- 



#6,y: <timer , top 
#6,y:<timef 
#0,y: <qtalloc , 
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_def ault_used_lC- 

; default the used sub-bands to. max sub-bands 
-move xO , y : cusedsb : 



_af ter_used_10 • 

;set the CCS compression as per -con 

bclr . ire. y:<cmprsctl 
... move. y:n_psych,a 
.move . - « . 5, xO • 
cmp . xO . a 
jit ■ <_nc_compress. 
bset* t*o. y7<crnprsctl :> 



trcl parameter (ri_psych.! .. 

-;default as' do not use CCS compress lcr. 

; ;get the parameter from the table, 
•if less than ■'. 5, no CCS compress 
;see if. use CCS compression cr not" ' 
;if less, do not use. CCS compression 

■■ ; otherwise., sec flag to use CCS compress. 



_nc_conpress 

;the new data- for the next- frame is all set, lets do.it/ 



.}sr 



< do frame 



INTERRUPT HOST CD .-inform the host 

;pass the KUSICAM~encoded frame off for reed solomon encoding. 



move 
move 
move 
>sr 



y :<f rmscrt, rC 
y: outsize, mO .[ 
Kreedsolbuf , rl 
<hew rs 



.set starting. for "output buffer 
'.-set the output buffer-. circular c: 



.-set starting for output buffer 
icall Reed Solomon encoding routine 



: : :dbg 
:dbg 



;mp 



<top 



idbg: skip Reed Solomon 



; copy the reed. solomon encode frame into the output frames .ou.*er 



move,. y : <f rtnstrt , rC " 

move y: outsize. mC 

trove ireedsolbuf , rl . 

do y : <outtnus . _copy_rs 

move x: frl) *,xC"* 

move xD,x:.(rO)* .. . 



;set .starting for output cur re r 
;set the output buffer circular 
; set starting for output buffer 



_copy_rs 



end 



<top . 
start 
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; (c) 1991'. Copyright Corporate Computer Systems, inc. All rights reserved. . 
i \URDCDSYN\autosmpl.asm: modified to'., coordinate ' with BEN's mux 

title. 'Decoder Auto Determine Sampling Rate' 

• This routine attempts to determine the sampling rate cf MUSI CAM frame of . 

• -nput data being fed to a MUSI CAM decoder. It tries tc match on the 

; selected, bit rate a corresponding sampling rate that are predefined for. 
;; the. given units capabilities. -. 

. ;oh entry:' ■ 
. -. y:frmrate « indicates which -tit rate was selected .. 

y:<ctlalgs » NO_LINES bit is set . as to whether split frames possible 
ximaxtries » the number cf attempts at framing, that should be made 
\ ' . .. before determining that the input data is. net MUSICAM 

include . 'def. asm* 

include '.. \common\ioequ. asm' 

include 'box_ctl. asm'" 
.'include ' box^smpi .asm' '".'>. 
/Include 'box~tbls.asm' 

v . ' section highmisc 
• . ' xdef syncptrn 



..' org ". . yhe: 
. stauto_yhe, . 

syncptrn ds 

endauto_yhe 

"ehdsec '.. 



;4 possible sync & hdr patterns 



section lowmisc 



xdef 
xdef 
xdef 
xdef 
- : • xdef 
xdef 

.org • 
stauto_yli 

synccrit '-.-'.- 
' synemtch v :■ 

syncwrds 

-syncbits , 

syncf rms . 
•synced 

.. endauto^yli 

- endsec 



synccnt 

synemtch 

syncwrds 

syncbits 

syncf rms 

synced 

yii: , 



ds 
ds 
ds 
ds 
ds 
ds 



; count of sync patterns. to check 
; pat tern matched (odd»padded) 
;words per frame (if pad diff -1) 
;bit offset to frame start .. 
; number .of frame to sync up on 
; count of frames syne'ed; 



; 1 I ! BEN 



section. highmisc 



xdef 



srehrate 



1BEN. 
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: i BEN 



xdef : . 


.* srchtries 


xdef 


• maxtries 


xdef : 


tStSTBpl 


xdef 


• fndbit 


xdef 


. f ndsrapl 


xdef 


. 'fndidbit 


xdef 


padbit 


xdef 


sampletable 


cro" - 


.. "xhe: • 



I BEN 



stautc_xhe 






.- : : 1BEN 






srchrate 


dc ' 


C. 


srchtries" 


■■. dc 


0 


; ! : ! BEN 






maxrries 


: dc 


.'• C 


tstsmDl. " 


. ;dC ■ 


'- 0 


fadbit 


.-dc 


, 0 


fndsmpl - 


. dc 


■ . o 


fndidbit 


■ ■ dc 


0. 


padbit 


dc 


0 



SAMP IX TABLE 



; index to -rates 'in sample rate table" 

; failure counter of auto sampie attempts ■ 

; current auto determine max tries.. 
; sample code under test 
; bit rate code from frame header 
.•verify found sampling rate selection ' 
.•verify found sampling rate id bit.' 
.•save padding bit from the header . 

; table for sample rate, auto determination 



endautc_xhe ; 

■. endsec 

org ' phe : 

autosample 

CLR_DAC_RESET 

; i ! !BEK 

;;;turr. off the. interrupt system 

;; " 'on" irsoa.rar. Y- ' ' 

;;; Now set . priorites of the IRQ A and SSI peripherals 
IROA priority « 2 
" r ; ; IRQB' priority. » 3' ' 
' ; ; ;• SSI priority - 2 ' . ' 

;;; SZZ priority - 2. 



.•clear the DAC- reset line- to mute o-j 



movep 



*>Sa03e,x:<<M IPR 



;set ir.t priorities, ana edges 



; : 1 .BEN 
_auto_AA . 

; jset ; . #ArrONEXTFRAME.y:<process,_auco_contiaue 
;build uf the. frame length table, based on the selected bit rate 



move .. tt sampletable, rO 
move # A17TOBYS AMPLE. nC 

move . x:srchrate,b 

tst . : .b .* 

•jeq . auto_B3 "• 



;addr of sample rate frame lengths. 
.; set auto sample .of f set - z next rat 
;get next rate; index to. search for 
;see if 1st sample rate in table 
;if so, skip address adjustment . 
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c . auto oo — J , ■ 

■move . :(r0Un0~-' ; advance to next .sample rate 



do b,_auto_BB'. ; f °* index count . ad j .table addr " 



_auto_BB . •"• 

.tit QEJJ ' 

iilfor the. number of sampling races, supported; sec table of frame lengths . 

do #NOMSAMPLERATES;_auto_900 : 

,-7/12/94.: test sampling race; as not applicable 'to current project '- 

. . move ' r0.y:<svereg . .-save current table address 

movl x-<rO)*Tb ' .-get rate applicable code 10 - APPLIES) 

heir «i voldccs : ."' . . .-clear y:oldccs frames CDQ10C0 flag . 

■ ' est • J, 1 ' y ■■• ' ' .see if not applicable t-l,« N/Ai . . 

jit' ' auto_800 .'; if : N/A, go to try next sampling rate; . 

; now test for framing, on old CTQ1000 : low sampling rate old frames 

ieq auto A ■ ;if zero," not' old ccs CDQ1000. frames 

bset So.y:oldecs ; indicate old CCS 

bset #l.y:oldccs ■ . ; indicate old CDQ1000 frames. 

bset . #DECOMPRESS_PACKED.y:<ctlflgs . ;handle CCS compression 

_auto_A "•■ . 

Vgec che MUSICAM frame header ID bit. that indicates high vs low sampling' races 

- move ■ x« trO) *.x0 • ;get •'the . high/low rate' hdr id bit . 

move xO vsmplidbit .save for translate rate code 

■■ mtve \ ro'.ri ^ address of entries, at sample rate ■; 

. f « Be i>ti ; the raw bit race code co the internal rate index code ■•. . 

fatseo on whether the sampling rate is high <y:smplidbit l-high».or low (0i 
';anS valilace "that the race P is.su PP orced by the software and/or hardware . 

• move tftranslateraces. rO ; addr of the translation table 

• Ze \ yT.rawrate.no ... ; . ;'-o pffsec co translated index 

nop ■ ;pos to bit race cranslace . 1st value 

move fi I?"" - : lTs co bit rate translate 2nd value 

•■'■'•J. • yTs^lidbit.nO ■ ."low (0) .or high UV sample xate selec 

a •"• ;to see if noc 3upporced _ , . 

: v'(rO+n0) xO ■ . • ;get the translated race index code . 
^ y.(r0+n0).xo I ee if not supported race 

'.'.".• jeq - auco 800 ; -not supported, . cry. nexc sampling race 

■' .•sec; the .supported framing .bit rate table index code ' " 

'.. .move '. ■,'xo',y:frmrate ■ •' ■ ' , *bit rate 'index .code' 
Vset up the framing patterns table at sampling .rate/framing bit race . ' 

: ..pev. .. #AUTOBYBITRATE.nl ^j-rj-g™ tl race"" ■ . 

• . ™™ ■ • S: frmra ":(rl)*.x0.- ;Iesc if code zero 

csc , ; b . .. x. iri'*.*u , & ^ c ^ le sa|nple rate code 

: ' „„ -if 2ero, skip addr adjustment 

3 eq-, auto.OO ■ ... . -| s * tion to ^ ele cced bit rate • 

.; rep o : ' r 
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move : 



(rl'i +nl 



aucc 00 



"." : " move * --xO,x:tstsmpl* ;save sample rate code . ; 

; build up the table of framing patterns at this sample/bit rate 

> 'move • #syncptrn,r2 ./ ;, -table of framing patterns to match, 
/set at least the 1st two patterns.: unpadded . and padded (possibly) :■ 



move 
tst . 

jeq ; 

move 

move 

.tst : 

jeq 
move 
. move . 



x: (rl)*.b 
b. b,x0 

_autb_800 

x0,y:Tr2)+. 

x:(rl)*.b 

b .#>ivxl 

\_auto 10 1 
b,x0 

. #>2,Xl . : 



_auto_10 



move xO,y: (r2> + 



;get 1st defined framing pattern.' 
;if 1st pattern is zero, not valid 
; & save 1st defined 'framing pattern 
;bit rate not supported « sample rate 
/insert the pattern in test table. . 
; get 2nd defined framing pattern 
;if pattern zero (NO padding possible 
; & set pattern count to 1 (at least) 
;if zero, use 1st pattern over again 
,-else, use the padded framing pattern 
;set pattern .count to 2 

; insert 2nd pattern in test table 



; now.if split, mono framing is possible/ set up to. look. for those frames 



jclr 
move 
tst 

jeq 
move 
move , . 
tst 

jeq 

move 
move 
move 



#NO LINES, y: <ctl figs, auto_20 > NOT appl if one cr both lines 



X: (rl)*,b 
b b.xO. 

auto 20 
50 ( y:Tr2)* 
x:(rl>*,b 
b #>3,xl 

auto 20 . 
5,x0 ■". 

. #>4/Xl 

x0,y: tr2)* 



ww *w * • "~r £ — . — 

•get 3rd defined framing pattern . 
;if pattern zero (NOT split frames), 
; fc in case of duplication as 4th 
; if zero, NOT eligible for split frames 
; insert 3rd pattern in test table 
; get 2nd defined framing pattern 
; if pattern zero (NO padding. possible) 
;• fc set pattern count to 3 
; if zero, use 1st pattern over again 
•else, use the padded framing pattern 
•set pattern count to 4 . 
,• insert -'4th pattern in test table ■ 



_auto_20 . 

;set count of framing patterns inserted in the framinb pattern table 

. move . xl,y:<8ynccnt ; : . ; set the pattern count for framing 

; get the frame length values at this sample/bit rate- 



move- frame values, rO 

move • 8 FRAMEBYS AMPLE , nO 

move. x:tstsmpl#b 

. tst b 

jeq - -\ _auto_40 •.. 



,-addr. of sample rate values 
;numb parameters per sample rate 
;to see if need to adjust address 
; if code 0. no need to shift, address 
;if 0, get the 3 parameters > 



; adjust, the table address to proper sampling rate parameters 



rep 

move 



b 

• { rO ) *n0 
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auto 4 0 



move 
move 

CSC 

jeq 



#framebyb:trate . nO 

y : f rmrace, b. . 

b • 

. auco 50 ■ 



,-nurab paramecers per framing bit race 
;cesc bit race co sec audio data size 
rif cede C, no need tc shift address, 
;if 0, gee the paramecers . 



; adjust the table address to proper framing bit rate parameters at sample rate 



rep 
move 



b 

(r6) +n0 



auco 50 



move y : (r0> rl 

move . rl,nl 
: move ( rO ) ♦ 
move trl ; ) +nl 

move \ (rl) - 

move . rl,y : f rmemod 
move . y: IrO-.b 
esc ;■ - b " \nl,rl 

jeq _auto_60 
move (rl) - ; 



,-get che words per frame at race . 
;cc calc circular doubled buffer ecl 
;skip the bit count per frame 
;double framing buffer 
; fcr circular double buffer, ecl • 
;save framing circ buffer ecl 
;gec any padded f rames. DIF? value 
;co see if word counc adj needed ■ ' '. 
restore frame length in words 

;decremenc word counc if padded 



auco 60 . 



move rl,y:<syncwrds 
move . y: <r0)-, xO 
move : x0,y:<syncbits 

move . #0, r3 
. move r3 , x : srehtries 
bclr • #0,y:<protect 

bclr' . #Q,y :privacybi: 



;sec che words per. unpadded frame -' 
;gec any unpadded frame extra bits, 
;sec any unpadded frame extra bics 
;cc zero the failure councer-. ' 
;zero che failure councer 
;starc loolcing for CRC proceccion 
;starc loolcing fcr privacy bic off 



auco 70 



; \ I 1BEN 

; ; ; curn of f the interrupt: system 



on 



#S03,mr. 



•initialize for the interrupt routine to try to frame 



roove : - x : srehtries , r3 

move:- #0,x0 

move ir3 W 

move ' r3 ,x: srehtries , 

move x0,y:<inpstat 

bsec ; «2 ,y : <inpscac 

move. . y:frmemod,a0 

move aO,y: <inpsize . 

move .. #>AUTO_FRAMES.yl 

move yi # y : < syn c f rms 

: move . x0,y:<synced. 

move . #syncbuf,xO . 

move.. x0,y:<inpwptr 



; current failuer counter- 

; clear all bits 

/increment attempt, ctr 

;.save incrmenc failure councer 

; flags co concrol i/p routine 

;flag to do pad framing. 

;fcr framing, buffer size'. 

;store for ssirec rcn co store 
■;# of frames to match . 
:;sec number of frames co sync 
. ;zero che synced frame councer 
: /address of che. inpuc buffer 

;sec che input write pointer 



: ! I IBEN ■„■",■- • '\ 

• ; ;before turning oh the interrupts, rescar 
.thac tnpucs bics co form 24-biC words 



the input data stream process 
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! move #BitlT6In, r7 .;iriit the bit. input, buffer, per 

\\ .. andi #$fc.rar: '*;turn oh the . interrupt system. 

-;;;hang out here until, framed or failed ', \ 

;; auto 80 .''''''I''' ; " 

: ' . "bset WATCK DOG .- : ;tickle the dog 

bclr WATOTDOG ; tickle Che- dog • ". 

bset #AuTONEXTFRAME,y:<process . 

; ! •! BEN: perform old ssirec auto sampling on current frame ,. : 

_auto_contmue . • •.:'.'"; 

;we are now attempting to frame: . ~ - 
l ; if '-start of "syncing" (bit 3 not -sec). 

; • set 1st word .of pair to check'; ■'' 
;' set starting word offset 
; . ' set flag to set 2nd word* '" 

continue to react when 2nd word to check comes in 
. ;else, • 

; . see if. waiting, for the 2nd word or. counting looking for the next sync 

move . y : f nncurr , r4 ;set stare of the -frame addr 
: : . move . . y :frmemod ( m4 ;set circular buffer 2 frames 

_auto_CC . 

; start looking for framing pat tern 

jset #3,y:<inpstat,. auto_35 ;we have set the 1st . word, continue 
" c ir a r4, y.:wrdof f"\ -;- ;init\ for the 2 words tc check 

'; & save initial start word offset 
move ' x:£r4)*..al set 1st word to check (incr write pt 

. ■ '. bset. * «3,y:<inpstat ; , ".-flag to check the 2nd word 



move 
jmp • 



$0,r2 ; start count cf words looking f or syn; 

auto CC - ... ";try 2nd word 



;if waiting for 2nd word to check (bit. 4 not set), 
; put new word in aO to look" for the 24. bit pattern 
• • start the bit .offset counter 

; loop through 24 bits, over 1st and 2nd word trying to match one . 
; : of the defined sync patterns 

,; we found a pattern andare trying sync up on the next frame 

_auto_3S ^ . . ^ y^inpstat, auto_105 /counting to check next frame sync 

move x:(r4),ab ^, . .... ;set the 2nd word to search 

' move «0,rl . ; init the bit of f set . counter 

'do- #24,_auto_65 

; see. if current offset contains a. valid sync pattern : 

move ai.b"*''- ' V current bit of f set pattern 

move. . *syncptrn,nO . .. ; ; addr of array of sync, patterns , 

* move'- *.0 rO ;offset to 1st pattern. -. 
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;;loop through the available sync . patterns . 



do y : <synccnt , _auto^55. 

move . y: (rO+nO) ,x0 " 
cmp . xO, b 
jne _>uto_45 - 



;get the next sync pattern to check 
;see if pattern matches 
;if net, try next . pattern ' 



;we found a framing pattern,, set the indication and break out to proceed 1 



bset . 
enddo 
enddo 
jmp 



#4 ,y : <inpstat 
. auto >65 . - 



Vindicate the match v.; 
;end y:<synccnt loop 
;end #24 loop 
;we matched the pattern - 



_auto_45. "•■ 

; try the next framing • pattern 

'move. (r0)* . . 
_auto_55 

;try the next bit for a match, of a framing' pattern 

' asl ■ • " "a ■; . ■ <rl) 



; shift left into al 
; & increment the bit /shift counter 



auto 65 



; if the pattern was not matched, . 
; . set the .next word as the offset. 

increment the address for. the next word 
; exit the interrupt routine and wait for . a new. 2nd word to check 



clr ' a . (r2U-. 

jset * *4,y :<inpstat auto_75 

move y : <syncwrds,a ~" / " 

move #>FRAME_OVERAGE,x0 

add x0,a ~r2,x0 

cmp.. x0,a ; r4,y:wrdpff 



;zero the syne'ed frames counter ■ . 

; & incr count of words looking for sync 

;if match, set up to check, next frame 

;get number of words per frame 

;to add some cushion to frame length .. 

;add cushion to frame length : 

; & get words checked so far 

;test more than frame checked. for sync . 

; & save. possible new start word offset 



;if more than a full frame has been searched without finding SYNC: 
; we failed at framing at this, sampling/bit rate--; 



jit 

move. 

jmp; 



_auto 155 
x: IrVT+.al/ 
auto CC 



..-indicate failure' at sample/bit rate 
;set new 1st word to check (incr.ptr) 
;try new 2nd word; 



auto 75 



. ; frame matches a sync pattern: 
; update the syne'ed frame counter . 

;'. save the sync pattern match: index to test for padding or not 
; . store the new bit offset to start this frame - : 
.; . set the address and offset for the next frame 
';: see if padding needed, '..- 
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move . a.y:<synced 

move rO.y : csyncmtch . 

•move . rl.y:bitoff 

move y:wrdoff,rO 

move ■ y : f rmemod.mO 

.move- y : <syncwrds»nO ; 

move' y:bitoff,a' ■ 

move i rO ) *n0 . 

move y:<syncbits,xO 

add : xO,a H>PAD_SLOT,x0 

jclr . #0 , y : <syncmtch,_auto_85 

add ,. x0,a ' 



; update the sync'ed frame counter 

;save matched pattern index 

;saye the bit. offset 

; address start last frame 

;set circular buffer \ 

; words to next frame 

;get the bit .off set start . 

/address for next frame start "" 

;get unpadded frame extra bits 

; add extra bits to offset 

; & set upo for any neede padding 

.-match index even,. NOT padded. 

; add. the padded bits 



_auto_85 ■ . 

; see if bits exceeds full, word and adjust. 



move #>24 ,x0 

cmp xO , a ; 

j It _auto_95 

sub xO. a " (rO) + 



;24 bits per word . ■ 

;see if next address needed 

;if offset within word, continue : 

.-adjust the bit offset by full word. 

; & increment the start address 



_auto_95 . 

/set address and bit offset to match the next frame 



move . 

move 

move 

move 

move 

bclr. 

rts ■. 



rO, y twrdof f 
a.yrbitoff 
(r4> + - / 
y: linear , m4 . 
y: linear. mQ 
#5, y:<inpstat 



..•start next frame word address 
; start next frame bit . of f set 
;advance the write pointer 
.-restore as a linear buffer 
/restore as a linear buffer 
; clear reached frame indicator. 
.-BEN - exit rtn and wait, for next frame 



_auto_l05 

;if ready to check the new frame as it comes in 

test if expected frame start address has been reached 

if so, set indicator to check the next word received (2nd in the. frame) 
\ " otherwise, keep accepting frame. words into buffer 
-else 

• ... check for the pattern in the 1st and 2nd word (latest received' . 



jset 
move 
move 
crop 

jne 



#S , y : <inpstat , _auto_H5 
r4,x0 : 
y:wrdof f ;a 

x0,a .. (r4) + ' . ; . : > 
auto 155 . 



hit ; ' 



;to test if frame start add: 
.■address to match 
;see if .address hit • 
; & increment the write pointer 
;if. not, frame length problem 



;we have the 1st word of the frame 

; set indicator to check 2nd word for framing pattern. 



bset , 

; jmp ; 



4»5,y:<ihpstat 
auto CC 



; indicate check next word for patte: 
; to check 2nd word- .... 



auto 115 
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' = ' ' \ -135- •■ ; . • 

:we now have -he 2 words co check this frame for framing . .. 

' . c l x . '. a ,#>l.xl ; clear the register'to align pattera : 

: " ; & set' to increment frame match coun 
move x:(r4)-,a0 ; retrieve 2nd word (back up tc. 1st) - 

move : . x:(r4) *,al . . ; retrieve 1st word- ! .forward, tc 2nd) .. 

;if a bit offset, shift over the expected bits to align the ..pattern' 

move . y:bitoff,b . ;to see if a shift is needed 

tst b ;aee if zero ■ 

* ' jeq'* _auto_125 ■ ;if' so; skip' the shift * 

; shift. : left. to -align pattern in al ' ...... 

do ; b,_auto^I25. ■;■ 

asl V - a. .. . : '\']. ■•' * ' ." 

_auto_125 -• ' V 

;see if .current offset contains a valid sync pattern- 
move al,b ;to test shifted pattern from frame 

' move #syncptrn,nO . .. ;addr.of. array of sync patterns, 

move »0,r0 ;offset to 1st pattern.. 

..bclr #6,y.:<inpstat ; indicate no match yet. 

; loop, through the available sync patterns . 

■do y:<synccnt f auto 145 ' 

move y:(r0+n0),x0 ;get the next sync pattern to check 

cmp x0,b ;see if pattern matches 

' ?ne ' _auto_135... ;' . .;if not. try -next pattern 

iwe found a framing pattern, set the indication and break out to proceed . 

bset . #6,y:<inpstat - Vindicate the maftch; 

enddo '* ena y:<synccnt loop, 

jmp _auto_145 ; we matched the pattern 

_auto_135/ • ■ - 7 

; try the next framing pattern '■'/,_ 

' move : - (rO) ♦ . . . * . : • "' ':•.'' 

. _auto_i4 5 

;if not a match,, we are not -framed, try again via f rami t or autosntpl. rtn . 

' jclr #6 . y.: cinpstac ,_auto_lS5 • ' ' - Y 

;we did natch a framing pattern - ; 



move . y:<synced,a . ' . ;get count of /frames sync' ed so. far 

add - : xl, a y:<syncfrms,xl. .; increment count . - 

aaa . y . ^ & set t0 zest a limit reached 

cmp xl.a y:bitoff,rl" '.- ;see if sync frame count reached 
r '• " ; & set the bit ; offset register. 
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auto 75- 



;not at limit, *gc set up for next f 



rame 



;we are. now considered framed 
• indicate OK 

; put bit offset for" this new frame i!n proper register 

; ■ . put. address offset for this new frame in proper register 

set the data gathering correctly 

exit the interrupt routine 



clr 

. move 
move 
move 

.sub 

move 
move 
' move 
jmp 



#>1,X0 



yrbicof f ,r3. 
yiwrdof f ,b 
asyncbuf ,xl 
xl.b \ ; ! ! : 



BEN: 



b,y:wrdoff 
b.rS 

xC,y: <inpstat 
auto 160 



' . ■ ;a-0 indicates .we' re framed 

; &.set to set flag to gather data 
. ;r3- is expected to have the bit offset 
.-address of the last matched' frame star: 
.■starting address of input buffer" 
<r4) + ...-calculate the start, offset into buffer 
! !BEN * & increment the input write pointer 
;save buffer address start word offset 
. ;rS is. expected to have address offset 
;set flag for normal data gathering 
;done with auto sample this samplerate : 



auto ■ 155 



; failed to frame, indicate to the framit or autosmpl routine to try again 

■ bset #8,y:<inpstat " 
_aut6_160. ■ ' 

r !! !BEN: perform old ssirec auto sampling on current frame 



jset 
jset 

jmp 1 



#0,y:<inpstat,_auto_90 : ;framing found 

#8,y:<inpstat._auto3l00 .-conclusion has been as not framed 
_auto_80 ,-continue waiting for result 



auto 90 



; we have successfully framed the correct number of frames in- a' row 
; and therefore we found our sampling rate. 

; I I I BEN cuiddo . . ;end. 8NUMSAMPLRATES loop. . 

bset # AUTOS AMPLE PROCESS , y : <process .-indicate auto sampling done 
. clr • a . . . ..-indicate success to caller 

move;. y:linear,m4 . . ' .-restore as a linear buffer 

~ . rts . ; return with sample rate found 

auto. 100 . 



! ! 1BEN ■ ■: 

; ;we did not frame at that last sample. rate, try. the .next one 

;; turn off the interrupt . system > ; 



on 
nop. 
nop 
nop 
nop 
nop . 
move ' 
move 



#S03.mr 



x:srchtries,x0 
r3,x0 



; number of tries at sample rate 
number of tries ; at sample rate 
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; •'■ -13"- ; : .. .. 

move #>MAX_AUTO_TRI£S,a ;get tolerance, ctr ' ' 

cmp - x0,a , : . ;5 ee If time to try next sample ^a-e 

3gt _auto_70 ; noc yet make another, try 

; see if the pass looking for frames with privacy tit not set - 

•move V ttprivacybit,r3 : ' " ?addr of privacy bit flag 

■ no P • - 

jset ■ #0,y:.<r3) ._auto_lda v ;if tried privacy/ check protection 

;now try looking for a frame header with the privacy.- bit set 

move #syncptrn, r3 • . ; modify table. of syn patterns 

/ -bset . . «0,y:privacybit . ; indicate .privacy bit set . 

. ;for the number sync patterns, set- the .privacy bit set 

. do-- y:<synccnt, auto 102 
bset . * .#Q,y: Jr3) 

_auto_l02- ■ • ; 

/restart the attempt counter for the new sync patterns . 
move ' 80, r3 

move. rO,x:srchtries : . ; zero the failure counter 

.jmp . _auto_70 . ;now make tries with privacy bit set 

_auto_108 • -■,„:•:■■ . : '' : -\* 

;see if the pass looking for frames without CRC protection was done 
; . if so, try next sampling rate * 

jset . #0.y:<protect,_auto_800 ;if no CRC done, try. next sampling rate 

;now try looking. for a frame header without the. CRC protection 

move . #syncptrn,r3 . Vmodify table of . syn patterns 

bset . #0,y:<protect . ; indicate NO CRC protection ■". 

bclr #0,y:privacybit ;reset try with privacy bit set tc.c' 

; for the number sync patterns set the NO protection bit 

do- , y:<synccnt,_auto_llb 
■ . bset. #8,y:(r3) ~ " . ;.set the protect bit 
bclr , . «0,y:(r3)+ . ; clear the privacy . bit 

^auto_110 " 

;restart the attempt counter for the new sync patterns . 

. . . move #6,r3. • 
move rO,x:srchtries . ; zero "the failure counter 

jmp _auto_70 , ;now make tries without CRC bit 

;.7/i2/94: added label to. skip to next sampling, rate if not applicable 

_auto_800 - ■/ • ". ■ -■ ' 

;this sampling rate did not match,-. try the next table entry . 
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: i 3 EN 



move 
move 
nop 
move 



y : <svereg,.r0 

# AUTOBYSAMPLE , nO ■ 



/restore sample cable address " :. 
./set auto sample offset to next rate 



(r0)+n0 v .. /advance to next sample rate- 

! I BEN: increment the current sample rate table index to, try. next sample rate 



bclr &AUTQNEXTFRAME , y reprocess . ; to start next sample rate entry 

move* x:srchrate,b ' ;to increment table. entry 

move #>l,x0 V /increment 

add. xO, b 4 >NUM£AMPLERATES , xO /increment search index • 

./ & get . max table entries count. 
\" cmp. x0,b b,x:srchrate ./see if table totally searched 

& in case, save new search index, 
:: jit. _auto_AA : . /if .less than max, try new table. entry 

_auto_900 . 

/we failed tc determine the sampling rate,., indicate failure to. caller 

bset &AUTOSAMPLEPROCESS , y :<process /indicate auto sampling done ■ 

move. #>-l ( a : /indicates failure 

. move y:linear,ra4 . /restore as a linear buffer 

■ -'rts /return, to caller. 
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-'. °p- ; f c *■■'.■■;*' ■ ' \ • - ; " " . ; 

; tc) . 1991; Copyright Corporate Computer -.Systems. Inc.. All' rights' reserved.' 

. ; \URDCDSYN\getancda.asm: BEN y:<linear, y: f rmemod (inpsize) . 

; This routine decodesthe ancillary data bytes for output, to rs232 i/f. 

. ; on entry " • ■ " ' ; 

; ' *r6 ■ current offset in output 'array 

; , v y:dataiptr - address in data byte input buffer to start from - 
. . y:bytecnt - count of bytes in input buffer not yet transmitted 

; on -exit ■' . ._■'•■ ' . ' - V - 

; ; "a ■* destroyed 

; - b » destroyed ■ : ' ' "„ 

. . yO. • destroyed. ... ■ . 

. yl - destroyed •• ■ •*. 

■ rO ' ■ destroyed '' . J \- '•; 

; " ' rl - destroyed: - - 

. r2 » destroyed • 
; r3 » destroyed \ : - 

;' r4 » destroyed 

; " .! -*-n4 ». destroyed ■' 

' include ■ 'def .asm' 
include ' \comrnon\ibequ. asm* . 
include 'box ctl.asm' , 



section bytebuffer ' 






xdef 


databytes 






• 'org 


yli:. ',V 






stgetancda_yli 








databytes . 


ds . . DATABUFLEN 


/buffer, for bytes received 


endge t ancda_y 1 i 








endsec 








■. section 


highmisc . .' 






xdef 


anctype 






. xdef 


baudrte 




;data baud rate code from switches 


- . xdef : 


dataiptr 




• -xdef • 


dataoptr. 






• xdef 


bytecnt 






xdef - . 


maxbytes . 






xdef < 


saveaO 






■ . xdef . 


•saveal . 






• . xdef - • 


savea2 






- xdef 


padbytesj. 






org 


yhe : : 






stgetancda_yhe 








anctype 


.ds . . ' ' 1 :: 


■ rtype 


of count field after audio data: 








0 ■ .3 bit padded byte count ; 


baudrte. 






.1 ■ 8 bit data byte count 


ds .■.-■■l-'.- 


- . ;data 


baud rate code from switches 


dataiptr 


ds ' •',!/.■■ 


;ptr; 


for. next byte decoded from. frame . 
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, .■ - I;:.:-' •-. -140- .\. ■"■.'.'*.■•. . • 

dataoptr ... ; ... ds 1 ;ptr for next "byte to transmitted to rs232 

byxecr.t ds. .. 1 . .. ,-ccur.t of bytes yet to be output to -s2~2 

maxbytes ds .'.1 : .; tolerance check of bytecntfor scixtnc " 

saveaO ds ■' ■ 1 .save reg aO for scixmt 

saveal / - ds;" \ X ; save, reg al for scixmt 

. saveal •", ds*. ■ . I .save reg a2 for scixmt "• ■■ > 

padbytes ' . ■ . ds... ;«_■• 1 .. ; held pad 'bytes' from the frame : ' 

endgetancda_yhe; - 

/endsec . / ; V. ■ ./'*•*.■..■ 

org - , . phe 

getar.cdata '-. ••'..'• 1 ' ' . • ; -■'■•.• 

.-clear the ancillary data problem for old CCS frames . 

bclr #2 .y :oldccs . '",-•■;. ■ '/ 

;set address cf type of count to extract: 

padded bits byte count OR data byte- count - - \ • 

".move . #anctype,,r4 • .;' ;addr .of - type' of . count field 

;do hot decode ancillary data from a reused saved frame 

3set . \ .*USE_SAVTD,y:.<ctlflgs,_ancd_90 ''. ;if. not reused, /continue 

;see if data byte count, and if so, read. byte count and then bytes . 

. ■ - . jset JtO.y. (r4) ,_ancd_78 ;if byte count, get data byte count 

. ; set the end of the MUSICAM portion of the full frame values 

move y.frendwd.rO .-normal MUSICAM frame last Word address 

move, . y:frendbt.nO . ;normal MUSICAM frame last bit effset 
. . move y:frmemod.mO ; set circular buff to addj addr 

move rap, ml ; set circular buff to addj addr 

move . *>-l,xO . - .;mit the pad bytes value* 
move. xQ.y: padbytes 

;; test if room remaining . in the f rame to read the CCS ancillary data pad 
; ; byte count 

move. , rO.rl ' . ;get addr'- of last*- word' into proper reg. 

move.; -\ rS.a.-. ;to test next addr to decode 

move '■ trl) * ;tq. see .if- last word being decoded 

move ■ .rl.xO ' "\ • -. ' ;to test last frame word, address 

crop ' xO.a t»>BITSFORPAI)DING.xl ; see if about to .decode last 

• ;. set. numb bits, in pad byte cnt •■ 
jne ;_ancd_0C : ( ; if net, -test .room from curr decode- wor 

.•decoding of the last word in the frame is in progress. . 

; see if sufficient bits remain to get the padded byte count . . ' 

■■' move .. #>24.b. '.-;get bits per word . 

. • - move ■ y:<sc.x0 ../;get unde coded bits count' in last word 

. sub. xO.fc . nO.xO ;calc bits decoded 'from last word so fa 

"•■ ; & get total bits in that - last, word 
neg - - b- . ;maice bits already decoded negative ., 
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. . add 

' cmp 
: : :dbg 3 It 

.: 

nop; 

nop. 

nop, 

nop. 

nop 

jmp 

ancd 00 



xl.b- 

ancd_65 
~ancd_05 . 



ancd 85 



, a ad total bits in last word 
;see if enough bits remain 
.if not it:s not CCS. no. ar.ci: 
;if so, do ancillary data 



Lary aata 



; if not if s. not CCS. no ancillary daca 



;test the next to last word. address to- test remaining bits - offset 



las: 



. move 
move 
cmp 

jne-' 



in) 
ri.xo 
xO.a 
ancd 05 



.back up to next tc last word addr.. 
;tc test next to last vs next addr 
;see if next is next tc last ■ 
;if not at next tc : last .. dc ancillary ■ 



rema^rinq bits in current " 1 next to last) word, being decoded 
[ plus the numSlr oi bits in the last word have enough .bits . for pad byte cr.t 



move 
move 
. add 

." cmp 
!dbg jit . 

. jgc 

nop-. 
• nop 

nOP ; 

nop 

= nop ■ 
3.wp 



. y : <sc, b 

nO.xO 

xQ.b : - 

xl.b 
. _ancd_85 

"ancd 05 



ancd 85 



;get undecoded bit cnt curr decode word 
; get total bits in that last word 
;add total, bits to remaining bits cnt 
; see if enough bits left in the frame :-. 
;if not. it's. not CCS no ancillary -.data 
; if so. do ancillary data 



• if not . 



it's not CCS no ancillary da^a 



_ancd_05.; 

. ;get the -count, of' pad audio bytes from the frame ' 



move • ttniasktbl. r2 

move . *BITSFOR?ADDING.n4 
move *n4,n2 . 
jsr getvalue 

' move ■ y: Ir2*n2) ,xl - 
and . xl.a n0 ( x0 



mcve " al , a 

move a.y:padbytes . 

zst . . a y:dataxptr.r5 - 



• jeq' _ar.cd_40 



;numb bits in pad byte count 
; oet hi order bit mask index 
•get pad byte. count from frame. 
' -mask off high order, one'' s ' . 
.-mask off high order one* s . 
; fc.set end of frame bit offset 

; clear, up for a zero test . 
.-save the retrieved pad byte, count 
•test, if any pad bytes included . 
• 4 set addr cf next byte to be stcred 
' ; no pad bytes in frame... go decode aata 



;adjust end cf. frame for padded bytes. £8 bits per byte i 



move . • *>8.xl 

move ■■ al,yl 

mpy xl.yl.a *>24.xl 



; set up bits in a data byte 
; get count. of pad bytes 
.■mult by 8 bits per byte . 
; & set bits. per word 
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asr 
move 

_ancd_10 . . 
• " crap 
: jit . 
move . 
cmp 

; !.! :dbg jeq 

jne.- v 
nop. 
. nop 
nop 

. • nop 
nop • 

; : jmp *" 

:ancd 15 . ■ 



a • 
aO, a 



r6.b 



xl,a 

_ancd_20 
r0,y0~ 
y0,b '■ 
_ancd_89, 
~ancd~15 



ancd 89 



sub . xl,a (r0>- - 

_ancd_20 

mow back off the number of bits 



; aiign integer result 

; & get next decoded word addr 

;shift integer result 



,;if a full Word of padding remains 
;if not, go adjust the bit offset 
;to see if at next decode word 
;see iff next tc decode reached 

*;if ■ so,' no data to decode 
; if "not/, keep checking ' 



;if so, no data to decode 



;sub full 24 bits, 

.; k back off one word- in end address 
; try again . 



cmp 


■ xO, a \ xO.b ;.: 


,-offset vs rest of pad bits 


. jie ; 


• ancd' 30' 


. ; & offset to b reg for adjustment 


. ; if less or equal, don't adjust 


move 


r6.b " 


- . ;get . next decoded word addr : 


...*• ' cmp " " 


yo , b ; • xO, b . 


;see if next to decode reached 


; ! ! Idbg jeq 


; & offset to b reg for adjustment 


_ancd_8 9 


. ;if so, no data to decode 


. jne . 


"aricd^S . 


if; not, data to decode 


nop 






nop 






nop ; 






nop. . 






nop 






jmp 


_ancd_B9 


;if so, no data to decode 


ancd 25 






": \ • ~. add . 


xi;b (ro) - 


. ; adjust offset by. bits . for full word 






; i back off one more word address 


_ancd_30 . 






;ad;ust the bit offset by the remaining pad bits 


. move 


a.xO-. '. 


;get the remaining pad bits 




• x0,b V ;"• 


.; calculate, new bit offset. ; . 


;■' move . 


' b,n0 ;./ 


; save approx e nd of anc dataoff9et 


_ancd_40 







;now get . the bytes and. store in the buffer for the trasmit interrupt 



move' . . #DATABUFLEN-l ,m5 , 
move ' «BITSPERBY7E,n4 
move n4 , n2 • - 



" ;circular buffer 
; number of bits to decode from frame 
;get hi order bit mask index 
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move *C,r3- . ;this is ;he decoded byte counter " 

_ancd_50. 

;as long as there' is room for a byte to be decoded, do i: . ". 

;curr next frame' word address ■- 
;set up bits in a data byte 
; . ,-next frame word addr - 1 » curr addr \. 
.•get frame end word addr 

;get end bit offset in frame end word' 
. ; to. compare curr frame word to end addr 
;is curr frame word equal end frame word 
& get bit offset into curr. frame ward... 
:if. not end frame word, try next to last 

rsince we've decoded -intc' the last word in the .frame. • 

; subtract remaining bit in curr word. from 24 to determine how many have.. 
: been decoded ."' ■ 

;., subtract the used. bits from the last word bits available' 



move 


' rfi.rl ' 


move . 


#>BITSPERBYTE.xl 


move 


(rl) - 


move .. 


rO.a 


move 


nO.yO. 


move 


rl.xa 


crop 


xO.a y:<sc,b 


jne. 


_ancd_60. 



move 
sub 

sub 
jmp 



#>24,a 

b » a ..." 

a,b 
ancd 70 



y0,b 



,-bits per word to be sub from : . 
-subtract y:<sc from 24 to get used cnt 
; & get last word bits available. 
;sub used bit cnt from bits abvalable 
..■see if another byte can be decoded . ■ 



_ancd_60/.-' 

;since we have not reached the last frame word, we must see if we're at 
; the' next to last frame, and if not, keep decoding ancillary data bytes 



move 

nop. 

move 

move 

cmp 

_ jne " 



r0,rl 

<rl>- 
rl,a 
xO.a 
ancd 75 



;end frame word address ■ 
;this pains me ' \" 

;back up to next to last addr 
;for comparison. • 

;is curr frame, word - end - l frame wor 
;if not, decode the next data byte 



•we have reached the next to last frame word.; . • 

; add bits from the last frame word to those remaining in this byte 

* if there is -a byte's. worth of bits, decode , another ancillary data byte 



add 



y0,b 



.-add number of bits in last wcrd . 



ancd 70 



■ cmp 



. xl.b . 
ancd 80 



;see if a byte fits in the bits left 
;no more bytes, gc update byte count 



w ancd_75 ■ 

; there is room for. another byte, let's get it 



jsr ' - getvalue : . 
move. y: :r2*n2) ,xl ■ 
• and ' "xi.a .;• • (r3) ♦ 



rretreive the. next- byte from 
.-mask of f. high order one's 
;mask> cff high order one's, 
twiner byte counter 



:ne frame 



.-insert the byte into' the . transmit buff er' 
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v : ■ -144- •* . ; * • \ \ - .... . / . - 

move .'• al, y: <r5) ♦ ; put the byte, out 

;.test to see chat did' not exceed baud rate byte count 

move r3,y0 .; count of data bytes just decoded " 

• move y:maxbytes,a .-maxbytes tolerance, decoded check . , 

cmp . y0,a\ t ;check for frame alignment error 

jit .;* • _ancd_85 ;skip if too many bytes decoded . ■ 

jmp . _ancd_5(T . ..-see* if there is room for another • 

_ancd_78 

; get the count of ancillary data bytes, in the frame . 

. move. \#BITSPERBYTE,n4 . ;bits in the ancillary data byte count 
. move " #masktbl , r2 .', ;set,addr of the, masking table- 
move n4,n2 ; get hi order bit mask index 
jsr . . getvalue. ;get pad byte count from frame 
move 1 y : (r2+n2i ,xl ■ ;get mask off high order one's 
and xl,a #0,r3 ;mask off high order one's 

v ; & zero decoded byte counter 

.move al.a . : ; clean up for a zero test 

est a : .. • y:dataiptr,r5 . /test if any 1 data bytes included . 

'••-;•;& set addr of next, byte to.be stored 

. jeq _ancd_90 ; no data bytes in frame, we're dcne ; . 

;make sure the data byte count is valid vs the max bytes at. this baud rate . 

, , move . y: maxbytes, xO . ;get max bytes @ baud rate 

cmp xO,a . . .. ;comp byte count from' frame to max 

. jgt . - _ancd_85 - '\' ; if number is too big, skip data 

; now get the bytes. and store in the buffer for the trasmit interrupt 

move . #DATABUFLEN- 1 , ra5 . ,,; set circular buffer / . 

; get the count of ancillary .data bytes in the frame 

; bytes are stored in the reverse order received by encoder. 

do a,_ancd_ 80 



■ ;retreive the next, byte from the frame 
;mask off high order one's 
;mask off high. order. one's 
; "& incr byte counter ' 

buffer .' : V- ; 

' \'.\;put.. the byte out-.' 



for data received. 



nop ..; 
nop.'.; • 



;get the : next ancillary data byte 

..•jsr getvalue 
: move , y: £r2+n2) ,xl 
.and , . xl.a - .-£r3)*. . 

; insert the byte into the transmit 

"move al,y:{r5) 
_ancd_80 ■' 

; temporarily disable- the interrupt 
. - '* ' bclr • ' , #M_TIE,x:<<M_SCR 
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■ n «F " ' ■ ' " ! ' \ • . y. -, 

; while waiting for interrupt to take effect: 

make a tolerance check of the frame's alignment to make sure 

we haven't decoded more data bytes than is .possible . 
• if we have decoded too many bytes. 

skip. the junk. just, decoded by ignoring the results of this frame 

move r3,y0 . .-count cf data bytes 3 ust decoded' 

move y.maxbytes.a . " ;maxbytes tolerance decoded check... 

cm p ■■ yO.a y:bytecnt.a . ;check for frame alignment error 

; k get latest byte cnt of unsent bytes 
jit /. ancd_85 - . ;skip if too many bytes decoded 

.•interrupt should. now be' disabled and we car. safely update count .of unsent bytes 

add . y0,a r5 , y :dataiptr , ; add count of bytes just 'framed 

; & save addr of next byte next "frame . 
move a,y:bytecnt ; save new unsent byte count, 

■ jmp . _ancd_89 ■ ;reset interrupt : 

_ancd_85 >. ;. ■ . 

; a problem decoding ancillary data may indicate, a stream; of frames from 
;■ some . other manufacturer 

,* ■ or . ■ - . - - 

if the frames' are from a CCS encoder that is encoding old CCS CDC200C ; 

\ two-channel frames at a low bit rate that, is incorrectly using 

: the wrong allowed table BUT, has an old CCS CRC- 16 checksum 

; • : idbg 

nop ' 

• nop '. 
■ ■ nop- 

'." nop "\ ; . 
"-■ ■ nop ' 
;'!.! : dbg ' 

jset #CRC OLD vs KEW ( y:<ctifigs._ i ancd_89 ; if ISC CRC. continue 
;!!idbg . - 

nop .•• .- " 

" nop ; . 

" ' no P 

nop ■' : . :: - 

• ' ! idbg 

beet #2,y:oldccs ; show, problem to switch to ols -CCS 

' _ancd_8S \ 
-urn the transmit byte interrupt back on . 

bset ■■ #M_TIE.x:<<M_SCR ■ ' ' .-enable- transr.it ' interrupt '■ 

'f return after all bytes decoded and counted 

y: linear, mO ;uncircular buffer 



move. 

move .". mO.ml 



move 
ancd 5C : 



;uncircular buffer 
mo'/ml • ■ ;. ;uncircular " buffer 
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°P C * c '"". 
.". ; ] (c) 1991.. Copyright Corporate Computer Systems, Inc.. All rights reserved. ; 
\URDCDSYK\ge thai .asm: BEN y:<frmtype y:<sibo"und : 

title^ ..'Get bit allocations''; . . -" r ". ■.. -\ 

:/ m ; This routine is used to get the bit allocations' of each of the sub-bands. ■ • . 

'..;:lt is from the ISO standard. .. 
.; sub-band 0 10 use 4 bits (11 * 4 • 44. bits) -"* : - - ' 
■ ; sub -band 11 - 22 use 3 bits '- (12 * 3 - 36 bits) 
. ; sub-band. 23 - 26 use 2 bits . ( 4 * 2 « - 9 bits) . 
'y. ' ( total «,88 bits). 

-.''<""'•■; on entry ' • - ■ ■ \ 

, rO • address of bit allocation array for. both left and right channels 

; r6 - current offset in the input- array: • 

; n€ o base address of the input array 

; y:<raaxsubs ■ MAXSUBBANDS at sampling rate' and bit rate 

; ' y:sc *» shift count of current input word 

; ■ y:frmtype - full stereo, joint stereo or mono 

; yrsibound * joint stereo sub-band intensity bound 

; • x:crcbits » accumulator of bits covered by CRC- 16 routine- 

; . (bit allocation bits are accumulated) 

; on exit 

zS • updated 
; . y-.sc » updated 

* ; ■ a"'- destroyed 

; • • ■ b • destroyed . 
; x0 » destroyed 

xl * destroyed '■. '. 
y0 • destroyed 
'; .' yl ■ destroyed ; ; , 
;. rO » destroyed 

rl « destroyed, ■ . : .--* 

' ; ' r2 »- destroyed 

;. r4 - destroyed 

. n4 » destroyed-:' 

"■include 'def.asm'' ■ 

section highmisc 



xdef masktbl 

'-•••xdef ■ .tbl '• .• •'• ? 

• org ; yhe:' ; '" ■. ; "\ '•■ ' ■ . 
stgetbal^yhe/ 

masktbl '-''■:.■ 

dc iSOOOOOO ;place holder in mask table 

dc .SO0OC01 ' ;mask table for 1 bit getvalue 

dc SOO0C03 *. • ; mask table for .2 bit. getvalue 

• dc S00000*7 . ;mask table for 3 bit "getvalue- 
dc '. , :. SOOOOOf * . ymask table for . 4 bit getvalue .. 

' ■•' dc : SOOOOlf -' • ;mask table fcr 5 bit getvalue . 
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- ac' 

- dc 
dc 
dc 
dc 
dc 
dc 

. dc 

dc 

dc 

dc 

dc 

dc 

dc 

dc 

dc 

dc ■ 

dc 
. dc 



tbl 



S00O03f 
S00007f 
SOOOOff 
.SOOOlff 
S0003ff 
$0007ff 
SOOOfff 
SOOlfff 
$003fff 
$007fff 
SOOffff . 
SOlffff ' 
$03ffff 
S07f fff 
$0fffff 
Slfffff - 

$3fffff : 

$7fffff 
$ffffff 



; ma sic 
/mask 
;mask 
;mask 
/mask 
/mask 
' ; mask 
;mask 
;mask 
/mask 
; mask 
; mask 
/mask 
/mask 
.-mask 
; mask 
;raask 
/mask 
/mask 



cable for 
table for 
cable for. 
cable for 
cable for 
table for 
table for 
table for 
cable for 
table for 
table; f cr 
table for 
table for 
table for 
cable for 
table for 
table for 
table for 
table for 



6 bic 

7 bit 

8 bit 

9 bit 

10 bit 

11 bit 
12' bit 

13 bit 

14 bit 

15 bit 

16 bit 

17 bit 

18 bit 

19 bit 

20 bit 

21 bit 
22, bit 

23 bit 

24 bit 



getyalue 
get value 
get value . 
get value 
getvalue. 
getvalue 
getvalue 
getvalue 
getvalue 
getvalue 
getvalue 
getvalue 
getvalue . 
getvalue 
getvalue 
getvalue 
getvalue 
getvalue 
getvalue 



ize table for the getvalue routine to extract data 



data 


size table 


dc 


$000000 


dc 


$000001 


dc • 


.: $000002 


dc: 


$000004 


- dc' . - 


$000008 


dc ■-■ 


$000010 


dc 


. $000020 


dc - 


5000040 


dc .. 


, $000080 


dc . 


. $000100 


dc 


$000200 


dc 


. $000400 


dc 


$000800 


dc 


$001000 


dc 


. $002000 


dc 


$004000 


dc . 


.'• $008000 


dc 


$010000 


dc 


$020000 


dc 


$040000 


dc . 


. $080000 


dc . 


$100,000. 


dc - 


$200000 


dc 


S400000 


dc : 


$800000 



: ;bits < 
shift 
/shift 
; shift 
; shift 

• ; shift 
;shift 
; shift 
; shift 
; shift 
; shi ft 
;shift 
; shift 
; shift 
;shif t 
/shift 
/shift 
/shift 

. / shift 
/shift 
/shift 
/shift 
/shift 
/shift 
/shift 



» 0, 
left 
left 
left 
left 
left 
left 
left, 
left 
left- 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left 
left, 
left 
left 
left 



place holder 

01 bits 

02 bits . 
.03 bits 

04 bits . 

05 bits / 

06 bits 

07 bits . 

08 bits 

09 bits. 

10 bits 

11 bits" 

12 bits , 

13 bits 

14 bits 

15 bits 

16 bits 

17 bits 

18 bits 

19 bits 

20 bits 

21 bits 

22 bits 

23 bits 

24 bits 



endgetbal_yhe ; 

endsec 



section highmisc 



xdef 
xdef 
xdef 
xdef 



skftbl 
skftbl l 
3kftbl~2 
skf tbl"3 



org'* 
stgetbal^xhe 



xhe: 
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; address of BAL's bit table -as per Allowed table selected ■ 
skftbl- ds: ' -.1. 

.-These tables is the number of bits .used, by the scale factor in each sub- band 
; High sampling rates with higher bit* rate. framing 



skftbl 1 



;end 



; end 



dc . 
dc. 

* dc 
" dc 

dc 
dc 
dc 

: -dC • 

dc . 
dc 

dc , 

. dc 
dc 
dc 
dc 
dc 
dc 
dc 

, dc 
dc 
dc 
dc 
dc 

dc 
dc 
dc 

• dc 
table 

dc 
dc 
dc. 
table 

".: dC 

dc 



3-B 



3-B 



4 
4 
4 
4 
4 
4 
4 

4: ' 
4- ■ 
4 

4'' 

3 
3 
- 3 
3 
3 
3 
3 
3 
3 
3 

3' 
3 

2 

2 

2 

2 
2a 
. 2 

2 

2 

.2b. 
2 
2 



;Sub- 
;sub- 
;sub- 
; sub- 
;SUb- 
; sub; 
?SUb- 
;sub- 
; sub- 
;sub- 
;SUb- 

;3Ub- 
;SUb- 
;SUb- 
;sub- 
; Sub 

. ;sub 
; SUb 
;sub 
;sub 
;SUb 
;sub 

' ;sub 



-band 
■band 
•band 
■band 

• band 
•band 

• band 

• band 
•band 8 
•band 9 
-band 



0 

1. 

2 
3 
4 
5 
6 
7 



10 



band 11 
band 12 
band 13 : 
band .14 ; 
-band 15 
-band 16 
•band 17 
•band 18 
•band 19 
•band 20 
-band 21 
-band 22 



; sub -band. 23 
.; sub- band 24 
; sub -band. 25. 
; sub -band. 26 

.; sub -band 27 
; sub-band 26 
; sub -band 29 

; sub -band 30 
; sub- band 31 



High sampling rates with lower bit rate, framing 



skftbl 2 



~ dc 


4 


* dc 


4 


dc •■" 


3 


- dc ; 


3 


" dc • 


3 


• dc 


3' 


dc 


3 


dc 


3 



; sub -band 0 
sub-band 1 



; sub -band 
; sub -band 
; sub -band 
; sub -band 
; sub- band 
; sub- band 
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dc; 


3 


- dc- 


3 


dc 


.3 


dc 


- 3 


ble 3-B, 


2d 


dc 


. 3 


dc 


3 


dc 


3 


•dc . 


3 


dc • ■ 


3 


dc 


M 


dc 


3 


dc": 


3 


dC-: ' 


3 


dc 


3 


dc 


3 


dc 


3 


dc ■ 


3 


dc 


: 3 


dc 


3 


dc.' 


3 


dc V 


: 3 


dc . 


3 


dc . : 


3 


dc 


3 



; Low sampling races 
- skftbi_3 



" dC 


• "4 


. dc 


■ 4 


dc '■' 


4 


dc 


4 . 


dc. 


•3- 


dc 


- V3 ■ 


dc 


3 


"•' dc" ' 


: 3 


dc . 


3 


. dc. 


3 


dc 


3 


dc 


2 


dc ■' -; 


■;2 


. dc ■ 


2' 


. dc 


2 


: dc .... 


2 


dc 


2 


dc 


2 


dc 


2 


*• "dc"-. 


2 


. dc ; 


2 


dc 


'■ ■ 2 


dc 


. 2 


dc 


2 


• dc 


2 


dc 


' • 2 


dc 


2 


dc " 


2 
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; sub-band 8 . 
sub -band 9 
; sub -band 10 
; sub -band li' \ - " 

' " • • ; sub-band 12 -/ - 
; sub-band 13 
; sub- band 14 
*...-'"; sub-band 15. .■ 
* ; sub- band 1 16, ;' '.. 
; sub-band 17, 
,;sub-band 18 
; sub-band 19 . , 
; sub -band 20 
; sub- band 21 ;'. 
"". ? ;." ;• ; sub - band; 22 ■ • 
; sub -band 23 
; sub-band "24. 
'; sub-band 25. 
. ; sub -band 26 
; sub-band 27 
„ . ; sub- band 28 
.; sub -band 29. . 
; sub- band 30 
; sub-band : 31 



; sub- band 0 . 

•sub- band 1 

; sub-band 2 ; 

; sub-band 3 

; sub-band 4 
. ; sub-band 5 . 
, ; sub-band 6 • 

; sub-band 7 , . 
. ; sub-band 8 

; sub-band 9 
. . ; sub-band .10 

. ; sub -band .11 
• • ; sub-band 12 • 

; sub -band 13. 
• ; sub-band 14" 
; sub- band 15. 
; sub-band .16 , 
.... ; sub -band 17;. 

• sub-band 18: ' 
;sub-band 19../. 
; sub- band 20 
; sub -band 21 
; sub -band 22 
sub-band 23 
. ; sub-band 24 •■ 

; sub -band 25.: /. 
'. ; sub-band 26 . 
... ; sub-band :27 . 
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• ■ dc •• 2 . 
dc 2. 
•end' table 3-B.l 

■ dC: ■ 2 

■ - dc 2 
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sub- band - 26 
; sub -band 29. 

sub- band 3 0 
; sub- band 31 



endgetbal_xhe 
endsec 

-, org 



phe : 



■ a? rl with start of subband. allocation table of bits in frame per sub-band 

• b nD off set; fcr right channel sub-band bit allocation values: 

• . - left channel from.: to (NUMSUBBANDS - 1) 

riant channel from NUMSUBBANDS to ((2 * NUMSUBBANDS) - 1) . 

• c -3 set with joint stereo sub-band boundary for stereo intensity: 
' *■■"=" ; 4 (4-31). 8 (8-31;. .12 (12-31) or. 16- 116-31).. 



getbal 



move -.. x : skf tbl . rl" 

move' : fcmasktbl , r2 . 

move # NUMSUBBANDS , nO 

move . y : s ibound . r 3 ' - , 

move xrcrcbits.rS 



; offset for right channel; 

,-decr stereo intens sub-band ctr , 

•get CRC-16 bit counter 



; loop 
;bit 
; a . 

; b . 

; d! 
; e . 
; f. 

; g- 
; h. 



through the sub-bands extracting the left and right; i if applicable) 
allocation index values ty:<maxsubs « fixed count of sub-bands framed): 
for current sub-band get the number of bits for allocation index value 
and increment address of the next sub -band bit count. . 
get the bit allocation for the left channel always ; 
b register isolate the type of frame: full stereo, joint stereo or mono 
yO holds the mono frame type code for testing 
yl holds the joint stereo frame type code for testing 
see if the frame type is- joint stereo and just in case, move the ., 
current stereo intensity sub-band boundary counter value for testing 
if riot joint stereo, see if this is a mono frame type 

if it is loir.t stereo: w ' 

• test if the boundary counter has reached zero,, and just in case it has; 

restore the left channel. bit allocation value to the al register 
2 if the counter is zero, go to copy left channel into the right channel 
3* if not, go to. extract the full stereo right channel allocation value 



dp y : cmaxsub s , _ge tb_4 0 

move. x: -(rl) +..n4 

move n4 , n2 • 

move ■ n4 ,n5' . 

jsr . get value 

move . . y : (r2*n2> ,xl /■ • 

move (r5) +n5 . 

. and . ..' xl.a y:frmtype.b 

move al,x* (r0) . 

move *>MONO,y0 

move #>JOINT_STER£O r yl ,. 

cmp * yl,b " r3,a 
v jne ; -"\ .getb^lO • 

tst- '\ a " x :< ^°J'*V 
. jeq . . - _ge'tb_30 

move ' ■ *7r3 J-.--'/ 



;get # of bits xo read 
; get hi order bit mask . index 
;to accumulate CRC-16 bits 
;get a left chan bit • allocation 
; mask for. high order one's . 
;accum bits for CRC-16 rtn 
;mask off high order one's 

& set for frame type compare 
.".•set left channel 
;ck for no right channel 
;ck for intensity. sub-band - 
; check for stereo intensity . 
.if hot. see if raoric 
; reached bound, restore lefc val 
•yes, left val. to right. val ■. 
;nc, deer i n t ens. sub -band- cntr" 
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. jmp 



getb 2 j 



and. retreive right char, value 



]test fcr a mono type of.frame'and jus* in case it is. set ai tc zero 
; for insertion into the right channel for consistency 
;if. it is mono, go to move the right channel value * 
•'otherwise, fall through to- full stereo 



_getb_10 



cmp 



yO.b #0,ai 
_getb_30. 



L f . monc . 



ifull stereo, extract the right channel bit allocation value, v 
lsetb_20 



;sr 
move 
move 
"and 



ge rvalue 
y: ir2+n2i . xl 
ir5)*nS 
xl.a 



: -insert the right channel value (nO.cf f set J : 
• '-increment fcr" the next sub-band 



_getb_3C 



move 
move 



ai ,x: (rO+nO:* 
trO)*. 



;get a right char* bit allocation 
;masx for high crdef one's 
,-accum bits for CRC-16 rtn , 
;mask off high order one's 



; right channel sub- band alloc 
;incr fcr next sub- band . 



_getb_4 0 "■ ; ' ' - 

* Fill the unused sub -bands with 0 bit allocation 

• This allows getdata to process these sub- bands normally and insert 0 
;'"data -in them. • 



clr . 
move 
sub ■ 
dc ' 
move 
move 



_getb_50 



move 
rts 



a tt>NUMSUBBANDS.b 

y :<maxsubs,xC 

xO.b 

b._getb_50 ; 
a,x: (rO+nO) 
a,x: (r0» ♦ 



r5,x:crcbits 



.•current MAXSUBBANDS 

; equals unused- sub- bands 

; right channel , 

;left chan.- & incr for next 



•store updated CRC-1€ bit countez 
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opt ' f-.mex 



; 'icl 1995. Copyright Corporate Computer Systems. Inc. All rights, reserved. 
; \DGCST\rmicrmus . asm: with Reed Solomon decoding ^ . ■'. . t . 

title " 'Main' 

■ ; 2*J/4/93v rmicrmus .asm version cf cdq20CO MDSICAM (rdcdsyr.t . asm) for, micro.. 
'; 06/26/91: : (dsb fi'lwh) " . 

• NOTE: Never use m4 to control a circular buffer.:. The interrupt routine, .' 
i ssirec.asm has been sped up by using m4 and then restoring it ; 

; to a linear buffer. 

«#»»#»»#•»••*••*••••••••*•*••♦•*•***•*•*•*** *•****••**•••••• 

.**#**••♦»*#***•******••»»•*• ••••** # *^* # **^* ******************** 

;. This, routine does it all for the decoder';/ 

include \def .asm* . 

include . . \common\ioequ.asmV * 

include * box_ctl .asm'.. - 

section highmisc ■. . >• - 

• xdef SBndSKF . 

xdef ASMData ;set A cf .192 inverse quantized -i-ir' 

org xhe: .; v " - 

strmicrc_xhe . 

SBndSKF as :■ - NUMSUBBANDS*NPERGROUP*2 .-left. & right sub-band scaie factors 

ASMData as NUMSUBBANDS*NPERGR0UP*2 ;192 samples per 1 group of .3 samples 

. . ; for 32 sub -bands from both rhar.ne.s 

endrmicro_xhe 

■ endsec ■. ■". ' * ; ' ' 

section highmisc ■ 
■xdef- chclcsum . v; . 

xdef -frmsize 
xdef . . frmemod'. "■- 

• xdef . frmhalf 
..'.■xdef. frames*. 

xdef • oof . . • '••'„'.'- 

■.-.-.."•' xdef.' ■• ': yoof. . . . •-."■■*''*.. 

xde£. poof. 
xdef' doof 
xdef- " IPwrdoff • 

■ xdef \ ' IPbitoff 

. .' .. xdef . • wrdof f .' , 

■'■'xdef. bitoff 

xdef ■■..• dcdf rtnod ■ : ' . .. ". ... 

• xdef -' sveidbit;. — ,* • .. 
- xdef sverate 
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xdef 
xdef. 
' xdef - 

. xdef 
xdef 
xdef 
xdef . 
xdef 

'." xdef . 
xdef . 
. xdef 
xdef- 
xdef" . 

: xdef 
xdef 

- xdef 

' " © r 9 
strmtcro_yhe . 

chcksum ds 
frrasize ds. .' 
• f rrnemoa ds . 
frmhalf ds . 
f ramesz ds 
; successive f: 
■; ©of 1 

;.' VOCf < 

.; . . dOOf « 

oof . ds ; 
vocf -ds 
poof ds 
- doof. ds"/" 
IPwrdof f . 
IPbitoff 
wrdoff . 
"bitoff 
dcdfrmod . ' 



. ' • ; -154- ■•. .. : V. .• /' ' . ; v 

svesmpl • 
srpicde' 
bitrate . 
inpaddr ' .. • '* ■ 

frmrate- ; " ~'< ■ • ' ^ ■ 

smplrte • ' . , • \ '"' 

. . iputede ■ l; ■ 

smplidbit. .-' . ' 

maxsubs_l • ; ' ".. 
• maxsubs_2 

oidccs . ■ . • 

biterrs 
' fade : 
■: fadecnt 

' -frtries- : *■ - 

*. samping.bitrates^baudcik, 

yhe •'■ \ • ■'. '•"'•••■*'. "; ■ 

.. -hold checksum from coded frame 
r : ;number of words in a frame 

"".r ' — numb words in. 2 frames - l tmod buffer: 

T .. . 1/2 words in framed buf- (rd ptr check:. ^ 

. T . -size of framing ihpuc mod buffer ctl '. 

rammo faults: 

- out-of-frame sync pattern failures ; . - - 

. sample rate code faults (auto sample ys frame header ..^ 
. CRC protection code faults (auto sample vs frame header) 

r^rillarv data errors coupled with old CCS CRC- 16 algorithm 
-ancillary data e ^"J°.? rMie fau i tS: , n umb of oof's iO-NQOFl 

•number of voof • s tO-NOOF) 

•CRC protection faults-, numb of poofs. fC-NOOF). 
■ : 'ancil data with old CCS CRC- 16: docf * s (0-NOOF) 
1 -frame i/p word offset from start of buffer 

l . -frame i/p tit offset from msb . 
- C ; frame decoding word offset from .start cf- suffer 

0 ; frame -decoding bit offset from msz. 

1 . ;framebuf circ buf mod eti - 



1. ; 
1 

ds 
ds 
dc 
dc 
ds 



; these are for auto 



detect as requested by switches 



.sveidbit' 
sverate 
svesmpl ' 
smplcde;' ; 

' bitrate 

inpaddr ds 
. frmrate dc 



smplrte dc 
\ iputede =dc - 
' smplidbit. ; 



maxsubs 1. 



ds 
ds 
ds 
ds 
ds 



0 - 
0 

dc 



.ds. 



; ISO-' sampling id bit from frame . header^ ^ low /high 
•ISO bit rate from frame header:., io/hi .Kfc.t ra.e 
'•ISO sampling rate from frame header: ^hxgh . 
;IS0 sampling rate from on select sws : iow/high 
; IS0 bit rate from select sws: lo/r.i Kbi. rate. 

.-hold i/p buf addr to restore, after save 
;dip switch U bit) indicate which ... . 
■ ;'of 2 selectable' bit- rates;- .' 

bit rate sets numb words in a frame': 

o - lower Kbit rate 
' ' .1 • higher "Kbit rate 
• 'i/p- PCM data .sampling rate ; ■* 

;0 - MUSCIMAM frames. 1 • 3722 data.. i/p 
•V ' ; : ' ; IS0 hdr id- bit:'. -* ■ . . . . " \ 

. i • 32 -or 48 K sampling .rate. /. 
- c'-'l6 'cr*24 K' sampling rate ;, 

; HAXSjB BANDS if MONO frames- 
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maxsucs_2 
cldccs 

biterrs ds 

fade ds 

: f adeem ds 

frtnes dc 



ds 

. ds 

! ' l" 
1 



SAMPLE RATES 

BITRATES. 
BAUDCLK • 



;: ; -155- • ' ■; 

- /MAXSUBBANDS if 2 channel* frames . 
/bit 0 • 1 :o decode old. CCS CCC1CC" 
; . 0 means MPEG-ISC frames " 

. - /count successive bit errors 

" : - ../in case of fade volume output ctl 
. . /in case of fade volume output ctl 
; count framing to reboot if too many 

'/table of sample rate variables 

./table, cf framing bit. rate variables 

./table of specified ancillary data rates • ■/ 



endrmicr.o_yhe . 

endsec 



/The variables below are defined in lowmisc in low y memory and 
; •- below address; 40 to maxe use of short . addressing . 



must be located 



section lowmisc 

. xdef word_out , word in, not appl 

xdef . f rmtype . . ~ . 

xdef sibound 

xdef * ctlf Igs \ 

xdef - maxsubs 

xdef protect 

xdef inpstat 

xdef . inpsize'. • 

xdef . temp 

xdef . olwptr, orwpcr '. 

xdef - linear" 



org 

strmic.ro_yl'i 

word^out . 
word_in 
not_appl • • 
f rmtype ds , 



sibound ds 
ctlflgs ds 



yn: 



ds 
ds 
ds 

1.. 



.•applicable hardware outputs lleds, switches! 
/applicable hardware inputs (switches, lines; 
/satisfy non- applicable hardware settings. 
. /from coded, frame indicates: . 
- 00 - (OK full stereo 

- CI • ti) joint stereo 
v '10 »(2) dual channel 
..• ■; II «. .(3) mono (1 -channel) 

/intensity siibband boundary alloc addr 
./control indicators in certain kits: • 
; / bit. 0 - S7ERE0_vs_M0N0: 
• ; * , 0 '- stereo "... 
.'.•./*'■ 1 • mono 

. / bit. 2 ■ joint .stereo or not. 
0 « NOT joint ' 
r . 1. joint stereo frame 

/bits 6, 7 and 8 indicate protection 
/was a saved frame used 0«nq, i«yes •. 
/ bit 6 is overwritten when validating 
.the checksum after getscits':-. ■ 
■...;'■'•;''*■' 'if C ■ cheexsum valid. . 

use the. frame in • progress;. 
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and save it when finished 
if 1 » checksum failed* 

use previous saved frame .-.* 
and bypass saving- it when done 
; bit 7 indicates if a saved frame; 
.; - has been stored: 

,0 - no saved frame 
.1 « yes a saved frame 
; bit 8 indicates, to. getvaiue , this-'" 

is a good frame to store: 
; . - 0 « do' not store in save area 
1 » do store in save area 
bit 16 indicates whether .the frame ' 
;. is coded with CRC protection, or not 

.0 ■ no CRC16 checksum 
; . 1 • yes CRC16 checksum included 

; bit 19 is for mono output, only when 
one channel is used for output and 
the other. is to be muted 
isee bit 20) : . . ■ 

C « left channel fcr output 
; ■ . 1- right channel for output ;. 
; bit 20 is. for mono, output only and ■. 

specifies if the mono. is. to output . 
; to one. or both channels: 

.0 • both - channels 
■;' 1 • one channel only 

as defined by. bit 19-. 
..•working MAXSUB BANDS . 
;f lag for CRC checksum protection:/ 

bit 0: 0 ■ yes, l » no . 
;state of data collection. . 
;used by ssirec to set mod buffer i/p 
;use by ssixmte for temp storage 
; output ^ left • write pointer ; 
;output right write pointer 
;value.-l to. "reset- regs to linear, buffs 



max subs ds 
protect ■ ds " • 1 

inpstat ds . 1 

inpsize ds 1 

• temp ds ; ' . .1. " 

olwptr " ds . ■ 1 -. 
■orvptr ds 

linear .ds / " 1 . • • 

endrmicro_yli . ■ 

. endsec . ' 

'.. org phe: , 

start - "...; ..* 

ftura off the. interrupt system 

on • #S03.mr • 
'nop . . ' • ; 

• ' nop •'■ \-:\..;- .. •'*'..-•' ' 

movep #S0001.'x:<<M - BCR . . ;set all external io wait states 
;set dsp560 02 clock to , selected .MHz (PLL Control Register) 
-." ' REECQDE M PCTL . • -J. 



move 



<i nit deb ' 
«ST239C€,a 



r : init the debug port 
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jsr . < out hex 



^initialize the volume, output fade control-' ..- 

;FD • clr'.\ a- '■ ' " . 

■ : FD-*"v move. a.y.fade - ,v ■ - 

; FD . . move a.y:fadecr.t ■ ' .• 

■ PORT C Assignments' • 
s - ssi port • 

i - input" port • '•.•/.- 
, ; " c^». output pert ■ 

'; 8 - 7 V-5- 4 -. 3.2 1 0. ' 

.; s S SS : -'S -i s- s " 

' RDECODE PORT C m' ?CC- • ; set C control register for general " ■ 
' V S~S-WRT"M-?CT- .:;set.the default outputs ..... 
. rdeC0DEIpORT:cX?CDDR. ; set C . register direct ion 

; initialize the ssi port for the input from the xmitter . ' : ■ \ 

RDECODE SSI M CRA. ... . ;set ssi era register 
RDECODElssCfTcRB , '.. .;»« ssi crb register 

; ; initialize the sci port for tty \ 

, RDECODE J^I_M_SCR ; /set sci status control .register ; 

; ■ PORT 3 Assignments . 
'; ' i « input port 

. ; . o - output pcrt ; ;. " . '■' ';. 

) X4 13 12 11 10 9 8 - 7. -6 .5.4 3:f 1 0 " 
; O - O C O' O O O O 1 1 1. - '1 1 " 1 , . 

RDECODE PORT B M PBC ;set 3 control register for. general . IC 
^COdHoRT-|"M-PBD ;set the default outputs ... - 
. \SeS:So:m:pbi»R/ rset B. register direction ■- 

* move ^ «>On'^^ - : ^ lasn the/LEDS on \ 

^rn^"5^ WOrd - OUC ^ • ;clear the DAC reset * line to mute' outp- 
ON LO SAMPLE RATE_LED_DCD - .- 
• . •' ON~K I~S AMPLE_RATE_LE£_DCD • - 

' SET_LEDS DCD~ \ ' 

.: INTERRUPT^HOST^DCD.., •• %^ " \ . . 

--./-move. «>RDCDSYNT_STARTUP,a . . 

jsr: ; . <wai't . , , : / ' / •/ '"' 

y ; initialize the linear buffer value for mX -yr\ 

-. '• ft : .-reset' to a. linear buffer 

move. , #-I.mO - ■ •.'-..<•',. 

"rove ■ . •m0/y :<-incar i *- • ~ : 

■■■/,. i .'. !l e W ic selecVcesc cable crirame. i«Sths. "^?.»?| a f *>" < 
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-* «*ac word indicates sample rate: C 
Yi flag word indicates framing bit rate 



low.. 



igh 



igh 



move 
move 
move 
move 
move 
move 
. move 
move 
move, 
move 
move 
move , 
move/ 
move 
. move 
move 
move, 
move 



tfautotbi.'rO 
Btesttbl.rl. 
x: trO) ♦,x0. 
x0,x: <rl>* . 
: #>l.xO 
xO.x: (rl)*-. 
x: irC.)-,xO 
xC.x: (rl>*. . 
#>3 ,x0' ... 
xQ.x: trl) * 
■;rC) *.x0 
.x: CrU- 
*3,x3 

xO.xr.trl)* 
x: trO; + .X0 
x0,x: (rl)-' 
«>2.x0 

X0,X: (rli : 



X : 
XC 



/set start -lip- auto selects . 

.bset . *Q.x:autorate 
.-.* .bset - :; ■ ' no. xi autocode 
bset eo.x:autosmpl ; 



; table of selectable frame lengths 

; table to test from.. 

/get 1st entry frame length 

; score smallest frame 

; indicate. high sample /low. biz rates 



;2nd smallest frame 

; indicate high sample/high bit rates- 

; 2nd largest frame 

.•indicate low sample/low bit rates ( 



/largest frame . 

/indicate low sample /high bit .rates 



/with lower bit rate 

; as MUSI CAM . . 

; at low sample rate 24.000 



restart 



CIA DAC_RESET 

interrupt jk>st_dcd , 

--urn 'off 'the interrupt system 

i"set the interrupt, for host interrupts 

• HOST set to ZPL 2 

movep # >S0800 . x : <<M_IPR 
' andi . flSfc.mr 



/clear the DAC reset line to mute output 



: set ir.t priorities and edges 
;turr. on the interrupt system 



; ' ori *S03,mr. V 

/disable the ' ancillary'. data transmit interrupt 

bclr #KjriE,X:«<M_SCR 
J tit C , „ ta . controls data* collection from the outside 

; is incremented .• ./" ./" '• 

, • * " • a'^rr LEDS ' DO.b. ; initialize, leds as off ■' 

clr . , - a . . OFUM.3a.» { lap ut. buffer , 

move a.y:<inpsta. .. , . ... . decsdi _ c eor - rc l flags - . 

. . move .*-y :< :;i £ ;|*- . . .-clear any stubbed flags- 

move a.y:<net_app- • " ' 

•'; initialize the led output>ord and' light initial leds . . 
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TST SET ALARM_R£ 



SrtCTS^ MI** ECD._set_l.ed_0 ;unless already sec. _ 
' Si-fflarSSKY DCC" -. the alarm relay iine.or. 



- 8e ^ led 5 ° F SAMPLE RATE_LED_DCb 

of?_hi~sampleIrate_led_dcd, 



...•••••♦•••'•••••••«•••••♦••••••••••"••*•••••*••*••*•* 

DATA IS DECODED AND PUT INTO A HIGH MEMORY,-. 
■IffwrFS Sto 1 *^ 5SwS SL THE TIME- WHILE THE PROGRAM . 
I ^N S M t3 maL S'JRi THAT. NONE OF A WORD IS IN ERROR 
'•TEST DATA . • ' 

.'; initialize the. buffer, tc be; decoded for testing. .. 
' " ' OFF_REED_SCL_LE=_DC3 ' .-indicate no problem; with Reed Sclo-or. 

„. . in ... m -i •• ; make sure, it's linear buffer - . 

mOVe I c*tnear'm3 ■ ; -ake sure it/ s linear buffer 
m0 v e ^'"^"'ml . .-make sure if s. Unear. buffer- ' 

move •. ■ y : < linear. mt> 

• ' ohuf -ri ' ; code the 1st of the encoded' frames . 

move,- * framebu 5;^ x0 . . ... 2 ero the- test value accumulator 
. Cir a . ; & to increment. in the test buffer 

.set the ! framed buffer to- sequentially; incremented values 

• do.- #96,'_initl.'.' 

add .'• x0,a~ . ' \ ' .' ■ - • 

■' move . al.x: lrl>- 

_ir.itl . ' ■[■'. 

; dc the reed- sclomon encoding, on the test, frame buffer 

' ' "u ~i '■' ■' ;o/p pcinter of buffer to be RS-.SSCMS: 

move «syncbu£,.i . . . . .i/o ooxnter for CODED data tc aecode 

■ mOVe S«o?i r r3 * ' !-Reed Solomon profile: control: decode 

move . HFROFl.tJ .. ■ -encode via reed sclomon 

■.jsr •*■■; <rsdecl6 • 

; ; test if the reed, solomon' codec worked or NOT 

• ■ * * -ncinter for DECODED data to be stored 

; • > ^ Winter; for the .verif.cat.on table 

; verify that the; reed sclomon coded values are correct , ; 

' do/, : : ■• 8 *--* s -SJ}* : ; . -Get current' coded data output 

• move. x:(r6)*,xQ . G et precoded look up table value 
/move x: a . y ; compa re 2 values 

ctnp ; . i*m- - T f SAME No problem 

' ; .^WsoL_ixD_Dc| ame - : .«"» p.r*i~ 

:- enddc ' *. - ' •■■■*;• 

. ■ : ■ n °p : ; * • .■■ : * ;.- : "■ • . ' - ' . 

Same: . 

■ /" . ■ nop .. . . .'• .: -'V. ' 
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_RS_Chk -■ - . -V ■■ .."'.*. ,' 

' S£T_LZDS DCD ' ' " 

■ I NTERRUPT_HOST_DCD * 

;mute current output buffer' 

■ move #outbuf,r7 ; setup syrith variables 

jsr ,.<muteout ... ;mute the dac output buffer - 

;get the external switches to determine frame bit rate - 
; , and ancillary data baud rate. . 

GET_SWITCH£S_DCD gsws_00 Y 
jsr"' . '• xgetsws • 

;MUS;CAM selections by switches set up prior to. possible auto select . 

\... move '". x; itstsmpl , yl 

move yi»y :smplrte. ;set the i/p PCM sampling rate code 
move- -. x: tstcode,yl 

move ' yl,y:iputcde ;set type of i/p data MUSICAM vs G722 : 
• move • x: tstrate,yl. . • ' . . ■ 

move yl,y :f rmrate .; set the frame rate i/p code . 

; i ! !dsb 11/22/94 \ - " 

;; ;if no auto selection required, . go with the settings from the input switches. . 

move .. ttautosel , rO 

;; ;, nop . \ : 

.;; jclr #0 , x: (rO) ,_onward_ ;NO auto selection required . • 

; *!!dsb 11/22/94 



;;if the selection of MUSICAM vs G722 is not auto selected,. 

•; test for MUSICAM input data stream selected versus G722 data input stream 
and if G722 selected manually, boot rom file from lower half of the chiF 

jset . # AU70_SELECT_DATA_TYPE , y : < ct 1 f 1 gs , _aut o_ t ype 
move y:iputcde,b " 

est . b ;0 - MUSICAM, else G722 

jne • <g722_boot ./ ;if 1. it's G722, boot lower half. 

_auto_type v " ' ' 

initialize- the auto select MUSICAM max. tries . 

move.. . #>MAX^BOOT -r TRIES,x0 
-• move ■ xO,x:maxtrXes 
jsr <autoselect . ; try for MUSICAM input data 

;if autoselect successful,' use the. selected "info .'■ 

. move "' #autosel,r0 ; 

■ . . " nop . ' ■ ' . 

•. noo ■ : ■ " - ,: ' ■.' ■• *.:«*■".-• V ' ^ "' 

. jclr - ■ #0,x: <r0> ,_onward_. ;N0 auto, selection required 

,;if auts select for. MUSICAM_vsJ3722 , it must be G722 
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_onward_ ■= 




.•everything i 


or MUSICAM selected by 


move • 


. x: tstsmpl, yl 


move 


■ ■ yl, y : sthplrte 


move 


x: tstcode,yl 


/. move . 


: yl P y : iputcde . 


move 


x: tstrate.yl 


■ ." move . 


. yl,y:frmrate 


.. "move. 


xrtstbaud.yl 


move 


yl,y:baudrte 


; rtest for the diagnostic method of 



: '■- v ; - : - ; -161- ■ - . ' ■■; ; : - : ; -\ 

• " npp • • ■ : . .. '■*.■■■." >r-\.- 

'•' ■ nop- ■ * /"..'■ "/ " * ■ 

• ;. ■ - ' ■, nop - '• . v ' .' - ' ' y 

.nop ■* 

;. \ j S et • ' .#AUTO - S£LECT - DATA - TVPE,y:<ct:f:gs.g722_boc; 
/indicate riot MUSICAM framed " 

ON FRAME- LED DCD " ;set the- framing' led alarm '■ 
SET 1£2S~DCT~ • 
- INTERRUPT HOST OCD; 

' }tnp crestart . . 7 : try for new switch settings 



.-set the i/p. PCM sampling rate, code 
7 ;set type of i/p' data MUSICAM vs GT22 
;set the frame rate i/p code 
,set ancillary data baud rate code 
sration 

; TST CLR_D I AGNOSTI CS_DCD , _go_f wd ; if normal operas ion , cont inue 
; diagnostic method of operation selected, reboct from. the low portion, ot chic 
bclr *ll.x:<<K PBD" , ;clr boot cOOO for rdcddiag boot 70C:f 

: jmp " • ,<bobtup' ■■' < 

•_gc_fwd • ■ 

• se- the values for the data collection routine. '\ 

■ Tr^s is used for setting the value for the. mod buffer ctis 
r *\ y:framesz . 7 input for purposes of framing . . •: r 

y-frmemod normal framed.. input tooub*e buffer ed-« frames; 

• but- setting the address of a. buf fer. ly:inpwptr> can't hurt either. 

move #syncbuf,aO ' 7 ;set input word pointer 

• S i Srr^Snr : ^ - : suffer addr cf MUSICAM decode buf fer^ 
; move a0.y:inpaddr -. • • . \;store input buf aaar for saving. frame 

•set access to the flags resulting from autesel framing pattern watch: . 

• ; bit C - sampling rate: ' .0 • low, l « high.. 
; 7 bit 1 - framing bit rate: , 0 - low f 1 - high 

•7 fc<t 2 - ISO VS Old CCS: ' 0 - ISO, 1 - old CCS CDCxCCO 
•. biv'3- CRC- 16 protection: 0 - yes, l unprotected 

7- : move. r *chkflags,rl 7 ;tc test results of autosel match ; ; 

; based cn the sampling rate and framing biz rate selected: 

; SUBSTITUTE SHEET (RULE 28) 
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se. .ne sampling rate code for the ISO frame heade- ' 
set cne framing cic rate code for the ISC frame heade- 
set the frame . size, in words and bits ' neaae. 



move 


psamping, ro 


move 


y,. smpirce , o. 




. . ' b . #io , nO . 




.'• <_smplcds_ 


rep 


' b. ; : 


move 


(ro;*nC 


C3S 




move.< . 




" jcir' ■ 


U2.X-. (rli , ' smpi cds 


move 


trO^nO . ~ .. 


_cds_ : ' : " 




~ move; 


\ y:.tr0j x6' • 


move 


xO,y:smplcde 


move 


■ y:.!r0i*,xC 


move 


x0 , y : smplidbic 


. move 


"■■ y : ( r c ) - , x0 


move 


xC.yrmaxsubs 1 


move *.' 


y : < rO ) * vxO 


."" move 


. xC, yrmaxsubs 2 


.. move : 


y:frmrate.b ~ 


. move 


'. #bi traces, rO 




. . b #8, no . . 


• jeq ■ - 


<_bic_offs_. 


' . re P .: 


b 


move . 


■ (rc : +n0 



;addr cf sampling race codes 

;o_fsec to. sampling code cable 

; test for sampling rate cf ze-o 

; & set register co advance thru cable 

;if-code is zero, we're. the-e " 



,-posicion co selecced sampling race code. 

;cffset MPEG- ISO vs eld CCS values 

;« ISO, rO is all set fcr ISO values' • 

;offsec to old CCS ; : CDC:::c values 



; get: frame header sampling code 
,;save^code to match in the frame heade- 
;get frame header sampling id bit 
.-save code to match in the frame heade- 
;get l channel frame maximum sub-bands 
: save max sub-bands for decoding mono 
;gec 2 channel frame maximum sub -bands 
;save max sub-bands for decoding dua 1 
;t *f t borate to set audio aaca size 
;aadr.of framing bit race info 
;cest for rate of zero" 
; 6 set register to advance thru table - 
;if code is zerc. we're there 



/position to selected bit rate code 



bit effs 



;set che table offset based on sampling race 



move" 


y : srapirce,b 


tsc V 


' b' . #4 , nO" *./ 


/ i«q ; . 


_ bit_smpl_ 


' ; rep • " 


■ ' b 


" move" 


'•' (rC* +n0 


_bit_smpl_ 




move '• 


' ..y: trG)-,xC ■ 


' ' ■ ■: jcir; . 


#2,x: f .rl: . bit rate' 


move - 


y: irO) ,xC 


_bic_rate_ . 




move 


xC , y:bitrate 


■ = ' move 


.' #>1.X0 


move 


. :r0i* ■ . ' 'A-v. - "i. 


- . move. 


.y:(r0!.,b 


■ move 


: b, y : f rmsize 




. xc., b 



;gec. the sample rate code : 
;tesc if low sampling rate'"'." 
, & sec offset to proper sampling race 
•;if low rate, addr is. set 



.•position to selected sample, rate 



;get ISO bit rate, code in frame header 
;if ISC. xO is all set with. ISO code 
;gec old CCS bic race code in frame, her. 

; save frame' header bic race code 

;co subtracc 1 for- mod buffer ecl below: 

;advance to sampling rate ■ lengths 

;)cbic/sec rate frame size ir. words 

;set/#-.pf wcrds in a frame 

;cc set decode fratnebuf mcd'crl' 
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move . 




idcdfrmod 


move 


y:frmsize.b 


Isl . 


b. 




sub 


xO.b 


■ «»MSBVFS,xl; 


move 


' bl-.y: 


: f rmemod 


add 


x0,b 


. y: f rrr.size;yl 


isr 






move . 


■ bl,y: 


:frmhalf /• 



;set MUSICAM decode framebuf mod ct 1 
.get * of words m a frame • 
.-double buffer framed i/p buffe- 
.-subtract 1 for mod buffer control 
;& set number of frames to check 
.save mod buffer control. - 2 frames 
; re-add 1 to. calculate 1/2 frame size 
; and get full frame for below - 
/frame size divided by 2 
.save 1/2 .frame size (1 full frame' 



;now ca. curate 

mpy 

■■■ ' asr' ' 
. . move 
sub ■ • 
■ move 



the framing buffer circular mod control size 
xl,yl.a *>l,yC - 



a ... 

a6:,a ■• 
yo .a 

al ,y:fraraesz 



; times frame size 
; and set up 1 to decrement 
;.align integer result 
; shift integer resuit- 
; minus 1 for mod buffer control 
•save., framing mod buffer centre: 



;set.up for ancillary data to be decoded from. a framed/and transmit via 
a. set address of clock table, baudclk. based on baud rate (C t: 
; b. set table offset by baud rate; 



rs23: 



:hese. are standard C3Q2CQ0.- set by macro, BAUTCLK, in box ctl'.asm; 
' 0-.- .3 00 baud " ••■ " 

l » 1200 baud ' " 

. 2 » 24 00 baud - 
■ . 3 « 3200 baud ■ ', 

4 - 4800 baud . 
'5 - 38400 baud . 

6 - 9600 baud " ' • ■ 

• 7 . 19200 baud 
set transmit' enable. 

get and set. the clock for baud rate from the table' 
adjust to' the sampling rate' info - 

get and set the max bytes for baud rate from. the table 



move *baudclk,r0 

move y:baudrte,b 

bset #M TE,x:<<M SCR 

tst fc ~ ■ . #3.n0 . . 

jeq . <_baud_cds_ . 

rep ' b" . 

move (r0 > 4-nO 



; get data baud rate table address 
.set to access clock at baud rate . 
;set transmit enable 
.-test for rate cf 2ero 

& set register to advance thru table 
;if code is zero, we're there 



; position to selected baud, rare code 



-oauo cas ■ 



move 

move 

movep 

move 

move 



y:(r0'»-,r2 
y:smplrte,nC . 
r2.X:««_SCCR 
y : ir0+n07.nl 
r.l', yzraaxbytes 



;get clock value at baud rate 
..now get sampling rate offset - 
;set the clock for selected baud, rate 
;get max byte count at sampling . rate 
; store maxbyxes for scixmt to check 



.set flags for sampling rate and type cf data received. 



! dba - 



neve 
tst 



*rmrate. b' 
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<_bit_l<0- 



f ■! I :dbg 



■ SET_HI_B XT_RATE_DCD 



bit Io 



" SET LO_BIT_RATE_DCD 



; smpi_ 
;Tl !dbg 



:dbg 



move y:.smplrte,b : 

tst b - . y:iputcde,b 

. jeq ' - ' <_-yP«_ 

jeq < ^_sntp l_lo_ 



; i «dbg 



bset # SAMPLE RATE_LOW_vsJiIGH,y:<ctlflgs 

set_k:_5akple_rate_dcd 



; ; ! ! I dbg ■ ■ ' ' - '' ' 

: smpi io_ " ' ■ " 

~ SET_LC_SAMPLS_RATE_DCD 

_tYP*_ ... . . < • . 

.-test for MCSICAM input data stream selected versus G722 : data input stream 



tst 



b * 
crate 



;0 MUSI CAM, else 3722 

•if 0, it's MCJSICAM, test bit 



rate 



;g722_boot 

;G722 input selected, signal the encoder XMI CRKUS^and 
I- boot up RMCRG722 from. the low portion of chip 



12/7/1994 SET G 7 2 2_DATA_DCD 

bset* #MUSICAM_vs_G722.y:<Ctlfxgs 



OFF FRAME LED DCD 

off~crc_error_led_dcd 

OFF~MONC_LED^DCD 
off'joint LEDJDCD 
off~stereo led_dcd 
off~lo bit~rate led_dcd.- - 
off~hi~b:t~rate_led_dcd '; 

ON G722_LED DCD 

Or? MUS I CAM~LED_DCD _ 

OFF~LC SAMPLE RATE _LED_DCD 

off~h:~samplej*ate_led_dcd 

"set" lets dcd 
interrupt host_dcd 

bclr »Tl,x:<<M_PBD : . 
jmp <bootup 



douse the framing led alarm ' • 
douse : the crc error led alarm- V \ 
douse the 'mono led indicator 
douse the joint stereo led indicator 
douse the stereo led indicator 



Light the ^G722 front panel led. 



; set the leds as needed. 

; clr boot cOOO for RMCRG722 boot 
•boot in RMCRG722 . 



rate 



. . :dbg ' 

: SET_MUS Z CAM_DATA_DCD 

setup syr.tr. variables. - 



i ; ^bg • 
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move 
move 
. move . 
move 
jsr 



*outbuf.r7. 
82.. n7 

r7,r0 

<alignptr . 



; setup synch variables 

.set to skip left and right * 

; set circular outbuf ctl 

; set up to . set read and: write ptrs 

.set ptrs 



: now", set priorites; of the ;iRQA >nd : SSr peripherals 
; IRQA priority - C turned of t 

.; HOST, set to IPL 2 . y- 
; SSI ' priority. • 2 
: SCI ' priority' - 2 ... 



mover " *>Sa000 . x: <<M_IPR 
: • movep' #>$a8.00.x:«eM_IP.R 

;! : : debug tickle to see it chip . booted 

x • . . - ■ .. . . . 

;_lO0p 



.;set ir.t priorities and. edges ' 
; set int priorities and edges 



bset 1 
bcir 
3«P. ■ 



WATCH_DOG 
WA7CH_DOG 
<_Ipop 



; wait for the dust to. settle before pushing^ onward 



;KM 
;KM 



move 

3 sr . 



■ # >RDCDSYNT_STAR7UP , a 
<wait ' • 



.•turn, on. the interrupt , system 



: • • • andi '.;*$fc,mr •. 
';. now- we are alive, with interrupts on! ' : . ; 

■; Set the addresses of inbuf and nxtbuf. to receive the input data. : 

reframe 

bclr I* #MTtE ( x:«M.SCR.;. disable anc data transmit interrupt 

. .^.DACJIESET; ; ; clear the DAC reset - line tc mute cutp, 

,;if G722 data' input, go - to the RMCRC722 boot -up routine , 

; V jse^ ^ . 
; since : it' s musicam, keep, in this routine and set indicators • 



" SET MUSI CAM DATAJ5CD. , 
ON MUSI CAM LE0_DCD :\: . 

• OFF G722 LED_DCD . -. . 
ON FRAME~LED_DCD . 

■ ON~CRC ERROR_LED_DCD • . . 
OFF MONO LED_DCD. 

■ OFF"JOINT LEDJ5CD- 

.. , . 0FF^S7EREC_LSD_DCD-., ' r- 

set. micro leds and indicators 

• : move : \ #fn»rate,r? 
nop 

v.." ^set ■ #0.,v: <r0) ,_do_hi_ 

■ ' ' setj.:_s:t_rate_i;ce ... 



•set the. framing led alarm .■'•"> 
•set the crc error, led alarm .. 
•set the mono led indicator 
•set the joint stereo led indicator 
'set the stereo led indicator 



; test for frame higher- Kbit, rate 
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ON 1-0 b:t_rate_led dcd 
■off hi_sit RATE LZD_DCD . 
■jtnp~ " <_3o_co3ing_ 

do hi *.'•"'•' ■;. ".' \ • 

■~ • - SET HI BIT RATE_DCD 

• ON KI BIT RATE LED_DCD . 
" "... OFF_LC_BIT_RATE_LED_DCD. 

■ do ceding ' ■ - * / . ' 

T " jset #SAMPX*E_RATE_LOW_vs_HIGH,y:<cclfigs,_hi_rt:e_ ;test hi sample ; , 

: SET LO ' SAMPLE_RATE_DCD " 

ON LO SAMPLE RATE_LED_DCD 

OFF_H T_SAMPLE_RATE_LED_DCD 

jmp~~ <_do_plld_ ■ 

■hi rte ■ ' - ■ 

~ ~ ~SET_HI_S AMPLE RATE DCD 

, ON HI SAMPLE RATE_LED_DCD 
. 0FF_l5_SAMPLE_RATE_LED_DCD 

. _do_plld_ . ' ■ • 

.-check che phase lock loop signal: 

TST SET ?HASE_LOCK DCD,_set_PLL. '■: 
' 0FF~PHASE_LOCK_LED~DCD ; turn off phase lock led indicator • - 

" j rop ' • <_set_alm 

_ 9et - FLL 0N pHASE L0CK led_ocd ';:um on phase lock led indicator . 

- Set - ?1 % N .A1ARM_LED_DCD . ;set alarm led indicator 

TST SET ALARM RELAY DCD, set led_A ;unless already set, 
. SET"a1ARM - RELAY_DCD" • " ; set the alarm relay line on 

_set_led_A^ DCD .. . ; set the leds as needed 

INTERRUPT_HOST_DCD 

; mute the audio output until we are framed 

jsr •••• . <tnuteout : . . • . • ; mute the dac output buffer 

^controls to force a reboot if an inordinate number of framing errors 

mrtva ' vfrtries a ' ;9 et frame tries 

m£ve- #>MAX TRIES, xO -V ■ ; get number of .tries tolerance 

; ' * -"™ 5 ^x0 *9«t number of tries tolerance - 

™X !q I • #>l,yO .; make test k set up to incr count 

cmp xQ,a »>x,y .jciH watch dog, if reached tolerance. 

' ' ■ • jit - • - . <_dsb_dbg_ 



if manual: auto selection, do not force a reboot 

'■ " . move #autosel,rO 

• nop . 



#0 .x: (rOi ,jnanual.restart V .Z V .;manual select, .dc not rebect 
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nop 
nop 
* nop- 
nop 
nop ■ 

. !jmp'\ 
jmp 



<restart . ; 
_manual_restart , 

;if in manual mode, . xerc the failure counter 



-;kill watch dog 
;kill watch dog. 



•cir 
move 
.nop 
nop. 
nop 
'■hop I"., 
nop 1 
jmp.. 



_dsb_dbg_ 



add 

move 

• jsr ; 



a,y: frtries 



< rest art; 



yO.a #syncbuf,rO 

a,y: f rtries 
<framit 



in manual mode start over 



; increment count of frames . 
; & get address of sync buffer 
. ; update count of framing tries * 
;and frame the data. 



/test for successful framing/ if not, restart 
, est . .: a .". r3,y:IPbitoff 



test if framed ia* 0 if framed) 
save the. bit offset 



jeq 
jne 
nop 
nop 
. nop . 
nop 
jmp 



<_ok_\" 
<restart 



< re start 



;NO,. we must restart 



_ok_ 

;since. we have MUSI CAM frames, set the flag for auto select switches 

. bset " .' #MUSICAM_INPOT_SET,y:<ctlf Igs. . 

/indicate to encoder that- the decoder is framed and to use pins. for: 
; • ' MUSI CAM VS G722 . 

LOW vs HIGH sampling rate V ' " / _ - 

• (otherwise, if auto selected and pin .14 is. still low, .encoder operates. 
. at MUSI CAM at the LOW sampling rate) . 

' SET_DECODER_FRAMED_DCD 
/initialize the pblysyntnes is .arrays for the 1st frame \ 
' * jsr .. xpolysini." •. \- • 

V the a reg is returned as 0. to' go oh • r . . < 

; clear the successive. CRC- 16 bit error sensed counter^- . • - ; . ; 
i> exceeded according to . the chkerc routine, automat -ai.y reframe. . 
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move 
move 
move 
move 
. move 
move 
bclr- 
belt 
bclr. 
bclr' 
bclr 
bclr 



a. y :biterrs 1 
a, y -.oof . 
a,y : voof\ 
a* y :pocf 
a,y :doof ' 
TS.yilPwrdoff 
*FIRST_7IME,y:<Ctlflgs.. 
»FRAM£_SAVED . y : <ctlf igs 
SUSE SAVED, y:<ctlf igs . 
*SAVE FRAME, y:<Ctlflgs. 
#USING SAVED. y:<ctlflgs 
. ItKEFRAME , y : < Ct 1 f lgs 



Or 7_?RAME 1E£_DCT 
SET 1£E'S_DCD " 
INTERRUPT HOST DCw 



.-zero the bit error ccunter 

;zero out -of -frame faults counter 

; zero sample rate code faults counter 

,-zero CRC protection, code faults "counter 

; 0 ancil data errors/cld CCS CRC- 15 cnt: 

.•save i/p buufer word offset 

.-clear the .indicator.';/ 

•;clear the indicator 

; clear the indicator 

.dear the indicator. , 

; clear the indicator ... 

■; clear, the . indicator ' 

,-douse decoder framed alarm led ; . 
;set the. leds as needed. 



; for ancillary data decoding- purposes, determine the end of the' coded frame' 



• jsr 


<f ramend 


; initialize the 


ancillary data contro: 




a . Kdatabyt es , rO 


move • 


a , y :bytecnt 


move ■ 


rO,y:dataiptr 


move / 


rO,y rdataoptr -.. 


do ■■ . 


8DATABUFLEN, _clr_data 


move 


a,y:(rO>* ;~ 


clr data . 




bset . 


#M_7:E,x:<<M_SCR 


■ ; Let the- show begin.. 



;zerb the decoded byte counter 
; & get addx of the. data byte buffer 
; bytes decoded counter set to zero 
Vaddress for next, byte decoded . . 
; addr for next byte to out RS232 

;zero the ancillary data buff er 
;set the data transmit interrupt 



top 



; get the external switches to determine if any. changes that signal a restart 

GET SWITCHES_DCD gsws_20 
. . jsr" <getsws : 

^set.- • *4,y:<not_appl, restart 
-.jcir*;;. -*4. y:<not_appl,_ok_2_ . 

. nop ; • . . ' • 

; .-' nop-- ."'.* *; ."■ " ' : . 

' nop.*.' " : - ' . •;* .V * *'..-■' < " . 

hof .' . ' • ■ 

--, jmp .' <restart 

.•check, the phase lock loop; signal :, . 

/TST_S^PHASE_IOCK_DCD,_set_ph 
; . if not set. clear the phase lock .loop led and ligh ; t the alarm led . 

" C-R ZkZ RESET ■ ■ ' ; clear the DAC reset . line ' to mute -cut?- 
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. DFF_PHA£E_IX)CK_LEDOCD ■ ;tum o:f phase lock led indicator 

ON ALARM LED DCD '.-.-light alarrr. condition led :na* cater -•• 

■ . ■ " TST SET ALARM RELAY DCD* set led B ■ " • 

; .set"ala5m^relay_dcd~. • ~ ,'- 

3mp~ •■ • <~set_led_B .. 

" _set_ph , ' ■■ . • . , .\ " V\; / 

; else, light ' the phase lock loop led 

and if .there . is no.CRC bit error," clear the alarm led.-' 

ON_PHASE_LOCK_LED_DCD' ;: ; light phase lock loop led indicator 

TST SET CRC ERRGR~DCD,._set aim A ,- if crc error set, cum alarrr. ied on 
. . CFF]>LARM,_LED_DCD~ T . - " : ; 7. ;turn off alarm led indicator • ■■• • 

TST CLR_ALARM RELAY" DCD, set led B • 

- CLR~ALARMJ*ELAY_DCD~; • " ' 
.jmp~ ' <~set_led_B , .\ 

. ._set_aim_A ." -....••'-;■' 

7 ' ON_ALARM_LED_DCD . . ■ ; light alarm condition led indicator 

• TST_S ET_ALARM_RELAY DCD, set led B 
• SET_ALARM_RELAY_DCD~- .. 

_sec_ied_B ■ , ;" ' . , -' 

" . 7 ■ OFF_OVERLCAD_L£D_DCD : . ; clear decoder overload alarm led 

SET^LEDS DCD" ' " . ;set the leds' as needed • 

INTERRUPT_HOST_DCD ,. 

. •; ' bset WATCH_DOG ;tickle the dog. . 

; '. bclr WATCH_DOG 

Now. wait until we have "1 word in the input buffer ■■ 
; The varible waitform contains the address cf one word after the sync word. 
; This is the word to wait for in the interrupt routine to signal the 
. ; . start' of a new frame. ■ 

.. move . y:f rmemod.mO... ;set up mO as a mod buffer of one frame 

.move y :frmsize,nO' • ;get buffer length 

move y : IPwrdof f. rO . ; word offset for frame start 

- move y:frmsize,a ' ;get 1/2 buffer length: frame length 
.. lsl . a- - ; times 2 

move al,y0 " . ;set framing buf length for addr compare 

: .move ' (r0)+n0 ; increment tc next input frame ■' 

."nove . rO, y: IPwrdof tV -' ■ ;save new offset word to start, cf frame '.■ 

" 'move (r.Oi* ; increment 1 word . - 

.-. move" rCxO ."■ .; set as address to wait. for 

•move '• y :<linear ,m0 , . ' . : .;restore rC. to linear addressing 

■ move, y :f rmsize.xl. . i.get half the framing' buf fer size ■.' ' 

: Here we check if we have received enough data. to proceed'/ 
/•This is done by .checking by subtracting, the 

_rdec_is' -• '/ \ ■" ' . 

: : * 'bset:.' WATCH DOG : ". -Stickle the dog 

■; - bcir- WATCK~DOC / V-/;'.'; 

move' . '. y :-cinpwptr..a ..-get curr read frames, i/p per-. 
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suo 



^rdec 20 -check for zero addr wrap arour 



sufi aodr to wait for. 



add * y0% e " • : \- bump result by framing buffer . length .. 

_rdec_2: ./ ; see if past a half a buffer 

•* . n?- - < rdec 15 - ; if -net yet at the half-way, loop - 

i - ■ L^rSuired f or even frame sizes when auto select sampling: rate. • / 
r.; Mitesure no rate switch fooled the decoder 

: ; V - . VERIwJ^O.SJWLS.' " \ ; « needed by box_ctl.asm 

-!!::dgcst •- 

•take the next f ran*, to, decode;, and word align it . for reed solomon; decoain? . 

• v^TPwrdc" ;get the word offset for the next fan- to decode. 

K ■ ^JSSTnr .ibase^address of the i/p frame buffer. . , . 

^S°lSuf- ;ad£lor b Re^ f/p buffer. - ' . 

• move SebS^r" ;addr for MOSICAM decode frame i/p buffer 

move • ;g et to start addr of current i/p. frame : 

move v : frmsize,nC ; number of words ma frame : 

mSve :y;;Sitoff b ;bit offset, to sync pattern m 1st word 

.for the g length^^^ 

A* nC . ■ reed shift . . - 

n»ve ■ .xMrO>.,Il . .;lst word of the curr pair to shift ■ 

iif words already are aligned. siHtply copy '.he word to the Reed Solomon buffer - . 

> x- <r0) ,a0 .-see if a shift is needed, ' ' 

•=... x. iroi.au . _ t aet . 2^ word of .curr pair ts shift 

' 3 ec, < no shift. :. ,if no off sei. no shift, needed 
;for the number ol offset bits; shift the pair- cf words. to abut, properly aligned 

rep • b . ; \ 
asl •' a-. 

■ ^no_.shift ." • ' ' ' 

. "copy aligned word in Reed Solomon buffer, for. decoding 

" , move. .al,x:(rli~ also copy to KUSICAM frame buffer 

-move' . \al-.x:.(r2 ' - . ..» -.• : . 

_reed_shif t . . : ^ \ 

: ; decode the Reed Solomon frame back zo a MUSI CAM. frame . ' 

' _- ' * restore rO to-linear addressing. .. 

move y:<linea.,m u . , • • Solomon frame buffer: i/?.. 

-move. areedsolb^.re .• *. * raTne buff er decoded; o/p . 

move tframebuff.-- . .'.Reed Solomon profile: control; aetoce 

move ." UPRCr a . r j . ' 
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jsr ' <rsdeci5 . ;-. ;'ao Reed Sciomon decode 

Now setup the buffer reading routines 



move 



y:dcdfrmod,m6 \ .-decoded Reed Sol frame bufmod ctl 

* _ . - - ' \ i . s J « \ m ^ * X. * 



move #framebuf,n6 .-decoded Reed .Solcmon frame buffer addr 

'■•••move. ' yrwrdoff ,r6 . ;bit cf fset from. msb.\ 

move . . y:bitof f .a .■ - rbit of fset from msb • ' 

bclr. . . USE SAVED. y:<ctl figs ,-clear used saved frame flag . 
•bclr- auSIN3_SAVED.y:<ctlf lgs .-clear using, saved frame flag .\ 

; • OF? CRC ERROR_LED_DCD : ' ; turn off the crc error " led indicator 

TST~SET~PHASE~LOCK_DCD,_clr_alm_A ; if not phase loop . locked,; then 

'CLR DAC RESET ,-clear the DAC reset line, to mute output 

OK ALARM LED DCD • : ; light alarm led indictor 

• TST SET ALARM RELAY DCD. set led_C 
'SET^ALARM^RELAy^DCD" ' " .1 ~ Tturn the alarm' relay on 
jmp~ ■■ <C sct _ l ec *_C 

_clr_alm^A 

■ ,-release the digitaito analog converter for output . 

■ SET DAG RESET ,;set the DAC reset line' high now 

OFF ALARM LED DCD -turn off alarm led indicator 

TST~CLR ALARM~R£LAY DCD. set led_C 

CLR~AIARM_RELAY_DCD~ . ; turn the. alarm relay off 

set led C ■ ' \ . 

■~ - ~ SET LEDS_DCD . ;set- the -eds . as needed ■ 

' :nterr*j?t_kost_dcd .■;.*■ ' ■ 

bclr #SAVE_FRAM£,y:<ctlflgs . ;clr ind for getvaiue to save frame wcs 

■ .-Now we. are ready to decode . the current frame using: 
. n6 - buffer address 
r6 - word offset into the buffer for start of the frame . .. . 
. ; a - bit- of fset into the word offset into the buffer for start of tne -rame 
' m6 * mod buffer control, through the buffer this will be either . 

-ormal input for 3 * frame size -1 (leaves space for saved buffer) 
• single, frame, size -1 for using the saved frame if a checksum error.' 

_rdec_30 - ' ; ' . './ .. ■■ jt ...*' 

. ••! i !dcsct '. bset WATCH DOG ". ..-tickle the dog 

- \ 1 ! idgsct ' bclr ■ WATCHDOG . '. ■ / : ; tickle the dog 

• TOGGLE_WATCH_DOG.DCD . ; 

,'jsr ' • <bitsallo ; ' '.' '■-.'..•.".'* 
. ..-prepare to suppress ancillary data if any out of frame condition ; 
V bclr #NC_SYNC,y/:<ctlflgs ':'■/ rclear the _ indicator- . 
: ; ; Now. get the sync pattern.' If the patterri matches a good syr.z . then ' ; V ■ , 
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the oci counter is decremented. If it doesn't match; the' ocf pat t err. 
is incremented." If it is incremented past.' an upper limit, an cut- cf .'. 
frame condition is declared and the system goes into framing. . 
On the other hand,, the oof counter is never allowed to go negative.'/. 

" jsr . < get sync ' the sync, bits 

' . move al.yO ;move right justified value 

.'move.-. y.:cof,b * ;get current n of.bcf's -" 

;if using' the saved frame, do not recount sync problems 

jset • #USE SAVED.y :<ctlf lgs ,_rdec_50 

move *>SYNC,a • ~ ;get sync pattern for test. 

■ cmp yO.a *t>GOOD_DECREMENT.xl . ;dc we have a valid sync : 

. &/set good sync, decrement vaiue 

jeq •". <_rdec_40 

•-We are here because the sync did net match.; 
; Increment the number cf bad syncs found.- 



bset 


*NC_SYNC,y:<cclflgs 


.set indicator to skip ancillary data 


move 


#>BAD INCREMENT, xl 


;set the bad match increment value 


add 


xl,b <(>BAD_LIMIT,xO 


; increment the number of oof ' s 






; St. set limit value to restart . 


cmp 


' x0,b 


; see if at the limit- 


jit 


<_rdec_50 


* ; we are not, so keep going 


nop 






nop : 






nop 






nop . 






nop - 







;we've sensed too many synr pattern failures in succession 

TOO_MANY_STOC_ERRORS_DCD . ' \ 

7; l :rmicrmus jmp . <restart , ;at error limit so ref rame 

; We are here because a valid sync was found: 
; Decrement the number of bad:syncs found.. 

rdec 40'. ■"" ■ ' ' 7 - w ' " * 

~ '•' " - sub" - xl,b" ; decrement the number of ocf\s . 



ts: 



b -*#0',xl- ' .' ;see if' at the. limit 



". tit ' . xl, b 
rdec SO . 



move 



b.v:oofi. : save the current oof "counter 



;get the sytem. header , info 

jsr <getsyst 7 '' . ;get.. system header info • • . 

;see if the frame header sample rate code -matches determined sampling rate 
; -If the sample rate codes match a good sync, then, the yoof counter is 
■ ; decremented. 

'; li the codes don't natch, .the vocf counter is mcrementeo . 
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;; If - the.vocf :;,n:er ;s incremented past ar. upper limit, .'We have tc • 

as the auto selection again since perhaps the" sampling rate ''has " char.aed . ' 

move y : svesmpl, a ,-get code from frame header 
move y :smplcde,xO . ;get code determined by frarcinc 

move ; y:vocf,b ;get current it of vcof's " 

cmp . xO,a . #>GOOD_DECREMENT.xl ;is a valid- sample rate code 

• ; .'■' ; t set good, code decrement value .- 
.jne ; . <_ck_smpl_05 . " . j ;if we don't that's bad '■ 

.now check the frame header 'ID that matches the sample rate. 

: move..' y :sveidbit;a ' . : ; get Z2 from frame header 

. move y :smplidfcic,xO ;get ID determiend by .framina 

. cmp.*... .xCa. -:".'.- ;see. if a match ■ ..*...' 

■ .■• jeq <_ ck_ smpl_iO-. ■ . ;if we. do that's' good . 

_cx_smpl_05 < 

; We are here because there was nc match of the sample rate codes. 
Increment the number of unmatches. found.' 

..move' #>BAD_INCR£KENT,xl ' .;set the bad match * increment value- 

add. ' xl.b _ *>BAD_LIM:t # xO •.; increment the number of voof's ..' 

set limit value to restart / 

cmp. xO.b /' ;see if at .the limit : " 

jit, .. < ck smpl 20 ■ \; we are not , - so keep goings 

; ! ! !.dbg ■ ~ " ' , ■ 

• ■" nop" : - ■ . . ; . 

nop. .; ' " 
nop ••■ 

nop -*';.; ' 

• -op ,' " ; • 

; * ; > dbg 

- jmp '■ <restart ;' . ;.at error limit so. restart 

; "We are here because a valid sample rate was found in the . frame . header . 
; Decrement the number of unmatched .sample rate codes. 

_ck_smpl_10 

~ : sub - xl.b ....-decrement the number of voof's.' 

tst . -b - #0,xl ;see if at the limit 

tit xl,b '; if less than zero, set to zero ■-. 

_ck_smpl_20 

move' b,y:voof ; save the current voof counter -.. 

;see if the frame header CRC protection code matches determined protection code 
; If the codes match, then the pocf ccunter is decremented. 
; If the codes don't match.. the pocf counter is incremented. 
•; If the poof, counter is incremented past an upper .limit , we" have tc. ; . 
; do the auto, selection again since perhaps the CRC protection has changed. 

move •. y:poof,b : . >get current t* of poof's 

V move . #>GOOC_DECR£MENT,xl ; set good match decrement value 

verify the CRC PROTECT setting versus auto sampling: ';•--.. 
'.."if the frame header shows CRC protection, 
; ■/= verify auto sample also indicates protection .'; 
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• ' jset ' . ftPRCTECTiy ^ctiflgs.^ck^prot^OO ; if protect check autc 

.•frame shows no protection, * 
; . if auto sampling also found no protection,! 
r . go to decrement the poof counter - \. 
; ! otherwise, force protection and assume a bit error 
•and increment the poof counter - 

;set #0.y:<protect, ck_prot_13 '. . ; ; if match; decrement poof 

■ bset U PROTECT, y :<ctlflgs • .;/• ,*set the'CRC applies bit 

jmp . <_ck_prot_05 ;go to increment poof for the. bad match 

_ck_prot_00 ; 

. ;frame shows protection. , 
;' if auto sampling also found protection, continue 

otherwise, force nc protection and assume a bit. error 
;l . and increment the pocf counter ' : ' \ >•"'"• ■ 

jcir #0.y:<protect . ck_prot_10 " ;if match.' • decrement pocf • 

heir:. #PRCTECT,y:<=tIflgs ; clear the CRC . applies bit 

_ck_prct_05 * • 

; We are here because there was no match of the CRC protection codes. 
' ; Increment the number of unmatches found. 

move #>BAD_INCREMENT,xl . ;set the bad match increment value 
add xl,b ~ **>BAD_LIMIT,xO .-increment the number cf poof's 

; set limit value to' -restart, . 
cmp ' xO.b . " ,-aee if at the limit-'-' 

jit <_ck_prot_20 ,we are not. so keep going 

; : : :dbg ', " 
nop" 

nop ; . '„ 

■ ncp ■ ... , • ' •. 
■ "* ' ; • nop - ' 

•nop ; . i : ' 

: : idbg . 

..jmp- crestart " ; at error limit so restart 

..- We are here because a valid CRC protection code was found in the frame header 
,* Decrement the number, of unmatched CRC protection codes.; 

_ckjprot_iO '.- ' 

"* . .sub xl,b. .-decrement the number cf poof's 

tst . b . #0,xl •'. ■'• .;see if at the limit 

tit xl,b ; if .' less than. 2ero, set to zero 

• ' ck_prot 20 "•* '.■..'.■.■•'.'■- 

"~ move b.y:poof ' • ■ ;save the current pocf ..counter. 

.;if there is CRC- 16 protection on the frame: 
; set the CRC-16 checksum bit count for the old ISO method: 
-a. header bits covered by any type of frame : 

'. plus bits for the ieft channel also apply to' any type cf frame . 
.- b. set bits for possible right channel based on frame type 
c". if not mono , add bits for . right channel ■ 
d. save eld ISO bit. count, for this, frame .. 
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:lr ' #PRO?ECn\y:<ctlflgs,_rdec_60 .if no checksum', get allocatic 



move 
move 
jset 
add ' 



rdec 52 



bset 
bcir. 

jsr 



rdec 60 



move 
sr 

move 
move 
jsr 

move 
move 
move 
jsr 



il i dbg 
i ! ! dbg 



3mp 



bset 



# >CRC_B ITS_A*CRC_8 ITS_B , a 

#>CR(TbITs2b,xO' " .-bit count for right channels 
#STEREO_vs_MONO. y : <ctl figs , _rdec_52 



xO, a 



a,x :crcold 

WATCH_DOG 
WATCH_DOG . 

.<getcrc ' . . 



#SBIndx,rO 
<getbal " 

#SBits.rO 

#S3Indx,rl 

<getsbits. 

*SBndSKF,rO 
ttSBits.rl 
#SBIndx,r2 
<getskf 



; since its stereo, add for right channel 



; set the old ISO CRC-16 bit count 

; tickle the' dog 
; tickle the dog.. 

;get checksum, from frame , . 



:; address of sub-band indicies 
;get bit allocations - 

; address of SB bits array ' 
; address cf sub-band indicies 
;get the sb bits'. 

; address of the SB scale factors 
.•address of SB bits array 
; address of sub-band indicies 
.get scale factors 



#PROTECT.y : <ctlf lgs._rdec_70 
< rdec 70 ' . 



; if no checksum, get data pes 



WATCH DOG 



.-tickle the dog 



#USE_SAVED,y:<ctlf lgs,_rdec_70 ;do net recheck saved frame' 



<chkcre 



# REFRAME , y : < c t 1 f 1 gs . r e f r ame 
#REFRAME , y : <c t If igs . _dbg_dsb_ 



^set 

;sr 

^set 
■ jcir 

nop 

nop.- 

nop-. 

nop " ■ , 
' nop 

TOO MANY BIT ERRORS DCD 



; check the validity cf frame 



;if too many bit errors, re frame 
;if too' many bit errors,- reframe 



_dbg_dsb_ 



Jclr : 8USE SAVED. y:< ctl figs , rdec 65 ;if valic, continue with frame 
jelr . ;.#USING - SAVED.y:<ctlflgs._rdec_65 ;if saved valid, continue 



ON CRC_ERROR LED DCD'.: ■ 
on~alarm LED~DCD~ . 
. TST SET ALARM RELAY DCD. 
SET~ALARM RELAY DCD*" • 



/light crc error alarm led 
■ ; light alarm led indicator 
_set_led_D " 

" ' ■ " Tturn' the alarm "relay oh. 



led D. 

SET LEDS DCD ■ ■ 
INTERRUPT HOST DCD 



;ci2 



; ■. ■- .'. ".-; set the.leds as needed ■ 
#?RAME_SAVED.y:<ctlflgs,_rdec_80 ;else failed, if nc save: 



:rarre . 
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bclr 
move 
. move 
move 

jmp - 



rdec €5 



# F RAME_S A VED , y s < c 
tsavebuf .nfi 
yrwrdoff ,r6 
y;bitoff, a' 

< rdec 3.0 



6ff_crc_error_led_dcd 

bclr . WATCH_DOG : 



*: output 2eroes ana try agair. 
tlflgs ; clear since we used the saved frame 
;else. set up last saved frame 
•■word offset was' saved 
■. ' ;bit of t set was saved 

;go back and dc last frame again 



,;turn off the crc error alarm led 
; tickle the dog'- 



_rdec 
; now , 



70 



•aht the proper led for the type cf framing: 
full stereo,, ooint stereo,, dual channel or mono 

nse- 1* STEREO vs MONO.y : <ctlf Igs , _rdec_53 
jset . #JOINT_FRAMING.y:<ctlflgs._rdec_51 



; i f mono 

•;if jcir.: stereo' 



OFF MONC_LED_DCD - 
OFF"J0IN7 LED DCD 
ON STEREO^tED'DCD 
jmp <~rdec_55 



rdec S: 



OFF_MONC_LED_DCD 
0FF_STEREO LED_DCD 
ON J01NT_LED_DCD " 
^mp < rdec_55 



rdec 53 



OFF STEREO LED_DCD 
OFF" JOINT LEDJ3CD • 
ON MONO LED DCD 



;tum off the mono led indicator 

;turn off the joint stereo led indicator 

; light the stereo led indicator 



; turn off the mono led . indicator - 
;turn off the stereo led indicator 
.-light the joint, stereo led indica: 



;turn of f the stereo led indicator 
[•turn off the joint stereo led indicator 
; light the mono, led indicator 



rdec 55 



;tes: 



SET LEDS DCD 
INTERRU?T_HOST_DCD 



;set the leds as needed 



if the fade controls are applicable 



TS 

. move 
' ts 



CLR FADE OUTPUT_DCD._fade_S 
~y:fa3ecnt,b 
b -/ *>l.x0 



jne 
move 
move 
- TST 
tst 

jcq- 
cmp 

tgt 
' sub 



'< fade_3 
yTfade, a 



. *>FADE SOFTEST. y0 ; ■ 
SET FADE DOWN DCD,_fade_ 
"a ~ - * # >FADE_START 



< f ade_ 
xT.a ' " 

' .xl'. a 
x0,a 



; if fade not' requested," continue- 
•get fade frame counter 
; test if ready. to fade (fadecnt-D: 
• & set to decrement frame count 
-not ready yet/ go decrement 
". -get current fade.. value . 
;get maximum fade down range 
; increment to soften cutput 
UP xl ;test if at loudest fade up 

get test. for max start fade va.ue 
at -loudest', continue- . . 
;test.if above max start fade 
get scale "factor increment 
■ •' -if needed, set start fade up- . 
»>FADE FRAMES, b ;adjust louder for this frame 
* * • - ™^ u 8 et frame count to next aecremer.: 



5'-," ' ' 
#>FADE INCREMENT. x0- 
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jrcp ' <_f ade_2 



fade_l 



cmp 
jeq 
add 



; store new fade SKF. adjust value 



vO,a ' # > FADE INCREMENT . xO 

< fade 5 ' " '-vi-f at sof test ,-■ continue' 

xO.a " #>FAD£ FRAMES, b .-adjust, softer for this frame 

"... ; 't set frame count . to next decrement 



fade 2 



fade 3 



f ade 4 



move 

jmp • 

sub 
move 



a, v: fade- 
< fade 4 



xQ.b 

b, y : f adecnt 



; save the new fade SKF adjust value 

; decrement frame, counter ' 

;save the new .fade' frame counter 



JL ade_5 * 

; if 1st frame align the ptrs for the pclysynthes 



iset 
move 

isr . 
. bset; 



#FIRS? TIME,y:<ctlf lgs,_rdec_5?'. 

r7.r0 " align the read & write. ptrs , 

"caiionptr .set ptrs 

#FIRST_TIME f y:<ctlflgs .-indicate ptrs . have been aligned 



\_rdec_S7 



move *5BXndx,-r3- 

move #SBndSKF,r2 

move #ASMData,rl 

• "sr " c'getdata 

" :sr <getancdata 



;sb indicies 
;get the scale factors 
. ; set A share mem of rec samples 
; get the sub-band data 

.-process ancillary data 



-ma^a'r. the frame counter of successive- frames with the old -CS CR.«.€ 
' checksum -oupled with ancillary data decoding problems./.- 
- T* e -he no er?cr was detected, then the docf counter is, aecrementea . 
• ; * -here was an error, the doof pattern is incremented. .... -s • 

; MPEG-ISO decoding or vice versa. 

: ; The docf counter is never allowed tc go. negative . - 

/ "move. : ,y:doof,.b current n cf doofs . . 

; -A saved frame is not included in maintaining the docf s counter. . . 

' .." = jset •• #USE_SAVED;y:<ctlflgs,.rdec_150 ,' • V 

■ ;check if a problem with old CCS CRC-lS algorithm coupled with ' 
;. a problem- with ancillary data.-. . 



move 
move 

jelr. 



Koldccs.rl 

*t>GOOD DECREMENT, xl 

*2,y: Irl) ._rdec_140 



;addr to test . ancillary data problem. 

; to decrement error frame counter 

; if no. ancillary data error, decremer 



w e are here because there was ah ancillary data problem/cld CCS CRC-1€ 
Increment the number of . bad frames found. ' ./,■■ 



suasnniTE sheet (rule 26) 



BAD ORIGINAL 



WO 9632805 PCT/US96/04835 



-J T8- 



! ! ' dbg 



;t© increment the number cf do * • s 
.•increment the number cf docf's* 

& set .limit = value tc restar- 
.see if at the limit 
■;we are' not., so. keep, coing 



move n> a AD_ INCREMENT , xi 
add V 'xi,b / *>BAD_LXMIT # xC . 

cmp xb. b 
jlc <_rdec_150 " 

... nop,.- .'. ■•' 

.nop : ' : ;■'*._ .-. ' '.' 

;." "-. - nop ' . 
' nop 
; : ! :dbg 

; reframe if toe many, ancillary data problems in succession 

TOC_MANY_DATA errors dcd 
: . jmp"; <_-o>c_15C 

; We are here because the ancillary data decoded ok 

; Decrement the number of ancillary data problem frames found. 

_rdec 140 • 

■ . sub ' xl,b 

•st b . #0,xl : 

" tit • xi,b • 



.•decrement the number of doof's 
;see if at the .limit 
; if less than zero, set to "zero- 



_rdec_15C 

- ■ .. move 

■'; jcir 
■ . jcir 



b, y :doof 



.-save the current doof counte; 



SS :<C:lf }??'- rdcc - 72 ;i£ no checksum,- no reason s save 
,#USE_SAVED,y:<ctlflgs.^rdec_72 . ;did not , use a saved frame 



;do net. reuse a saved frame 

bcir #FRAHE_SAVED,y:<ctiflgs ; clear we have a saved frame flac 

3™P . <top . j ** - 

,_rdec_72 

/since we had a good new frame. -check controls for long solid opera- io- 

; restart the counter of frames with bit error . . 

; and adjust count of framing retries, that control reset needed 



clr = b ."■ #>l,y0 

move . y:frtries,a 

sub.. yO.a b,y:biterrs 

tst a '- • 

jge < rdec 75 

clr *. a~ : 



_rdec_75 



move a,y:frtries. 
jmp . <top ' : l 



rdec 8C 



FT MONC LED DCD 
rr"jC:.\T LED DCD' 



;zerc bit successive bit error counter 
; & tc decrement counter every frame 
;get framing try 'counter ' 
.•decrement counter every frame -'. . 
. ; & zero bit error counter 
.see if counter, reached zero • 
;if not. continue 
;zero framing tries 

;save the ■ reduced .framing tries ctr 

; do next frame •. ■ \ - 

;tur- zti the mono led indicator : 



turn 



tne 



int.sterec led.. indicator- 
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.. OFF STEREO" IiSD_DCD- 
SET~LEDS_DCD 
INTERRUPT_H0S7_DCD 

;raute the current frame 

Y ; ' jsr <muteout 

jmp <top 



r'turh off the stereo led indicator 
rset the leds as needed 



;mute the output buffer 



end 



start 
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' - opt . fc. . . ' ' • 

; (c) 1991-. Copyright Corporate . Computer Systems/ Inc. All- rights .reserved. 

; \URDOSYN\getsbits .asm: Ben's mux 

- -.-title ' Get 58 bits' • 

;'■ This routine is used to get the SB bits of each of the sub-bands. . 

•; on entry . .-• . - ■ ■ \ 

;' rO » address of the bit, SB array 

; rl -address of the SubB and Index array 

; r6 « current offset in the input array 

n€ - base address of the input array 
; • y:<maxsubs » MAXSUBBANDS at sampling rate and bit rate 

; '.. y:sc - shift count of current input word 

• ■-. x:crcbits - accumulator of bits' covered by CRC- 16 routine • 
(bit coded for SBits are accumulated) • 

; on exit 

r6 » updated ■: 
; \ ■ •. y:sc - updated 

; " a • destroyed 

; . - . b - destroyed , 

;.. " • xO « destroyed- / ., 

xl » destroyed 
;. ■ ■ ,y0 - destroyed 
; ' " yl destroyed . 
; rO - destroyed'. 

;' . , rl - destroyed" 
; r4 • destroyed./ 

n4 -destroyed 

.. include 'def.asm' 

org "... phe 1 .' 

..•initialize:.' 

; a. number of frame bits for a sub -band SBits index value 
; b. nO offset for right channel sub-band SBits values : 
left channel from 0- to. (NUMSUBBANDS - 1) 

right channel from NUMSUBBANDS to .((2 * NUMSUBBANDS) - 1) 
; : c. 'nl offset for right channel sub -band bit allocation values: 

left channel. from .0 to (NUMSUBBANDS. - 1) 
; right channel from NUMSUBBANDS to < (2. * NUMSUBBANDS) -/I) 

getsbits " . •"" 

move #NSBITS,n4 :. ;set number of bits to get 

'move . .# NUMSUBBANDS , nO . . ;SBits offset-right channel 

... move #NUMSUBBANDS , nl .'. ' \ . ;bit alloc offset -right channel 
move x:crcbits,r5 ;get CRC- 16 bit counter: 

move n4,n5 \ ;tb accumulate, CRC- 16 bits 

;loop through the siib-bands : extracting the left and right , (if applicable)' 
;SBit values, values (y:<maxsubs - fixed count of sub -bands framed) : 
;• process, the right channel: ; 

; a. fcr current sub-band ; get the left channel allocation index, value . 
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b. if the left channel index-is zero, "-co to insert a 2 ^-n ca^. 'i ' ' 

c. .otherwise, extract the SBits. value for "ef"2SnL? of- Smr^iSSh - 
and go to insert value .into the SBits. array. nneA 0t current t sub-banq 



...do y : <maxsubs,_gets 90 

move x: (rl)',b ~ . • 

3 ec . _gets_i0 

jsr getvalue 

move • #>MASKNSBITS,xl . 

■ and ; xl,a . (r5)+n5 - 



;.get left index for subband 
;test index for not coded (o> 
;use value- of zero if not 
;get a sb value 
;mask for sbits" from getvaiue 
; mask off hi order one's 
; &.accum bits for CRC-16 rtn 
;go to store .SBits value 



_gets_20 . 

; insert 0 for. the left channel SBits value for this sub-band 

,_gets_i0 ■ 
c 1 r s 

. ■ *P° mdex use .2ero';.', *: 

;move ..the left channel SBits value to the SBits array 

_gets_20- 

move . .■ al.x: .(rOJ .. 4 " 

;process the right .channel: . 

fa' f?^^ rren ^ SU K" baii f the ri?ht cnannel allocation index value . 
' 'I-'- i.K ■ 9ht channel w index is zero, go to insert, a zero SBits value 

otherwise, extract the SBits value for right channel of current sub -band 
and go to insert, value into the SBits array . - . . 



\ - ; . move x: (rl+nl) ,b 

tst - * b '.- 

. jeq . _gets_30 

jsr getvalue ; 

move " #>MASKNSBITS,xl 

and xl,a (r5)+n5 

. ■„ 0 m P . _gets_40 -" . - 



;get right index for subband 

;test index for not coded (0) 

;use value. of zero if not 

;get a sb value 

;mask for sbits from getvalue 

;mask off hi order one's 

; k accum bits forVCRC-16 rtr. 

;go to store SBits value 



; insert 0 for . the right channel SBits value for. this sub-band 
_gets_30 



clr 



; no index use zero 



;move the right channel SBits value to the SBits array 

.-increment SBits array and bit allocation index arrays for, next sub -band 



_gets_4 0 



move 
move 
move 



_gets_90. 



move 
rts 



alix: (r0+n0> ; 
■<rl)* ; 



r5, x: crcbits 



;store updated CRC-16 bit counter 
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.... opt - fcmex ' - _**"'.' • ■ 

; .(c!'199i. Copyright Corporate Computer Systems. Inc. All rights reserved. 
• \URDCDSYN\getslcf -asm: Ben's mux. 

■"•'.-title-.' 'Get Scale Factors' 
•This routine is used to get the scale, factors of ■ each, of the sub -bands.. 
; 'on entry 

; r0 « address of the bit scale factor array (x memory)' 

rl« address of the bit-SB array ix memory) . 
r2 - address of the bit SubBandlndex array ,(x memory) 

) r€'« current offset in the input array .. 

n6 - base address of the input array 

y:<maxsubs » MAX SUB BANDS at sampling rate and bit rate 
y:sc- shift count of current input, word; 

; on exit 

; '-, r€ ■ "» updated 

; • . . y : sc = updated' 

; a ■ destroyed .' 

; - ' . . -b » destroyed '■'-'-.- 

xO a destroyed 

.; . • . ' " xl = destroyed 

; " yO «■ destroyed 

; yl o destroyed 

'■; rO » destroyed; 

; . r4 o destroyed .. 

; ■ n4 • destroyed . 

include .'def. asm' 
..include ' box_ctl .asm* ■'. 

• 'org' phe : ;• 

getskf . . 

. ; initialize: '.- -' '. '" * . „ ' 

; number of -frame bits for a sub-band scale factor index value . 

move : #SKF,n4 . ;set "number of bits to get 

move . #0,n0 . ;scale facts offset-left chan. 

;test the scale factors for. certain tolerances : 

■. ; a ; zero scale factor is equivalent, to a bit error, 

;'• ; " indicate NO zero scale factor •." 

; b. clear the channel overload led indicators:. 

be lr #SKF ZERO,y:<ctlflgs 
OFF LEFT OVER_LED_DCD - 
0 FF~ R I GHT_0 VER_LED_D CD 

•loop through the sub-bands extracting the left and right (if applicable) 
;scale factor index values (y:<maxsubs • fixed count of sub-bands framed) : 
;withir. the sub-band loop.is a loop for both channels: left then- right 
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process' the left channel:* . . ■ 

a. nC offset for left channel sub-band scale factor index values: 

• left channel from 0 to ( NUMSUBBANDS * NPERGROU? > ii 
right channel from NUMSUBBANDS * NPERGROU? ' ■■ . 

to(<2 *.NUMSUBBANDS*NPERGROU?i - 1: 

b. r.l offset for left channel sub-band SBIts values: 

left channel from 0 to (NUMSUBBANDS . 
: .' right channel from NUMSUB BANDS to U2 * NUMSUBBANDS \ - I)- 

c. n2 offset for. left channel sub -band bit allocation values: 

left channel from 0 to (NUMSUBBANDS - ,1) - 
.. right channel from NUMSUBBANDS . to i (2 * NUMSUBBANDS).- ' 1 ) 



do y :<maxsubs,_gets_ 90 

move , '-. .tt0.nl * ' • 

move HO , n2 ' 

bcir " #X,EFT_vs_RIGHT,y:<ctlflgs 



;SBits offset-left channel 
;bit alloc offset -left channel 
;left is current channel-/... 



/process a channel for- the current sub-band: 1st left then right 

• a. update the register pointer with the. of fset intc the scale. factor . 

index array for the left or right channel 
; b. get the bit allocation . for the proper channel to see if. any factors a: ail 



do ... »NUMCHANNELS,_gets_8C . 
move ■ irO)+nO 
move x: (r2*n2) , a 



.•offset for proper channel 
;get the SubBandlndex [SubBand] 



; .'first -checx if sub-band contains anything to Worx on. : This value . could 1 
; be zero if there, is no -energy, in the sub-band. 



tst .a. x: (rl+nl) , a 

3 ne _3 ets _ 05 ; 



.see if any alloted bits 
; there were 



; no bits were allocated, so set the scale factors' to 63. I could ^ust 
; set the scale factors tc anything for this case, but I set them to the 
;. lowest iacutllly, .. 63 is one . lower than the lowest) scale factor. 



move 
move 
move 
move 

"'3«P - 



*>63..al . 
al,x: <rO)V 
.ai.-x: trO)* 
al.x: (TO)* 
_gets_40 . 



;get lowest scale factor value 



_gets_05 



tst. 
• :ne 
sbit code 



a •• ,#>l,xO ' 
■ _gets_10 

'00' case where must get ali 3. scale factors 



SB — 0 .fcr this sub-band 
set xO -to sbit code' '01' 



do . 
3sr 
move 
and - 
' move 



#3 , _get9_a 
getvalue" 
*>MASKSKF,xl 
xl.a 

al,x:(r0i* 



;mask for scale factor hi ord 
;mask cff high order one's 
;save in SubBandSXFs [SubBand] 12] 



_9ets_a. 



jmp 



_gets__40 
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rmp. xC.a #>3,x0 
3 ne _gets_20 . 



;SB «. i fcr -his sub-ba-d 
; set xO to sbit code * 



•bit. code :01' case where, must get the second two; scale . factors 



}sr 

move 

and ."" 

move 

move 

jsr 

move 

and 

move 

j mp •:. 



get value 
#>MASKSKF.xl 
xl . a 

al ( x: (rO)V 
al.x:.!rO)-*' 
get value 
#>MASKSKF,xl 
xl,a 

al.x: <r0>- 
_gets_4 0 



rget SubBandSKFs [SubBand] [i] 
;;mask for scale factor hi or J 
.-mask off high order one's ■■■ 
;save in SubBandSKFs f SubBand] r s] 
;save in SubBandSKFs [SubBand 1 'i 1 
;get SubBandSKFs (SubBand] [21' * 
;mask for scale factor hi ord 
; mask off high order one's •: 
;save in SubBandSKFs [SubBand] [2] 



_gets_2C 



cmp 
jne 



xO.a ' •. #>2.x0 
_gets_30 



;SB — 3 for. this sub-band 
; set xO to sbit code '10' 



st it code '11' case where. must get the first two scale - factors 



jsr 
move 
and . 
. move, 
jsr 
neve . 
and " 
move 
move 

jmp 



_gets_30 



. so: 



cmp 
jne 

code ' 

jsr 
move 
. and 
move 
. move 
' move 



getvalue . ' 
#>MASKSKF,xl 
xl , a 

al,x: (rGW 
getvalue 
*>MASKSKF,xl 
xl.a 

al,x:(rC)^ 
al.x: <r0) r 

_gets_40 , ■ 



xO, a 

_gets_40 



;get SubBandSKFs [SubBand] r 0] 
.; mask- for scale factor hi ord 
;mask off high order one's. 
,-save in SubBandSKFs [SubBand] [C 3 
;get SubBandSKFs [SubBand] [l] 
;mask for scale factor hi ord 
;mask off high order one's 
;save in SubBandSKFs [SubBand] [!' 
;save in SubBandSKFs -SubBand] J2? 



;SB 



2 if or this sub -band" 



10' case where must, get- the first factor 



getvalue " 
•#>MASKSKF, xl 
xl/a 

al.x: ir0)V 
al,x: ir0>~ 
al,x: (rOi* 



, ; get SubBandSKFs [SubBand] [CJ 
;mask for scale factor hi ord 
. ;mask off high order one's 
,-save in SubBandSKFs [SubBand] [C; 
;save in SubBandSKFs [SubBand] [1] 
;save in SubBandSKFs [SubBand] [Zl 



; set up for the right channel:'- 

: a. backup the SKFs array for the left channel 3 scale factors indices 
; b. no c.fset for right channel sub-band scale factor index values 

.- left channel from 0 to ( NUMSUBBANDS * NPERGROUP - 1} 
; right channel from NUMSUBBANDS* NPERGROUP 

; ,\ • ' tp .( (2 * NUMSUBBANDS * NPERGROUP) - i 
r._ offset for right channel, sub -band SBIts values: 
left channel * - 



.c. 



from 0 to ( NUMSUBBANDS 



...... - i i'wriWUBOmiUJ - A; 

ght; .channel . from NUMSUBBANDS to- U2 * NUMSUBBANTS ■ 



SUBSTITUTE SHEET (RULE 26) i— 



BAD'OWSWM... 



WO 96/32805 



PCT/US96/04835 



; V.d^ n2 offset, for right channel sub-band bit allocation values : 
; •. left channel froirTC to {NUKSUBBANDS - D" - 

right channel. from NUMSUB BANDS to ! (2- NUMSUB BANDS) - 1) 

_gets_40 

; back up for the 3 scale . factors and while/, doing it test, for: 

; ■ a. zero. scale factor' 

; b. overload scale factor ■■■ ■ 



move y:fade,yl ; . 

do #NPERGROUP._gets_4 0_e/ 

move x: - (rQ) ,a 

add yl,a #>.63,y0 

.tst . a . #>OVERLOAD_SKF,xO 

jne- _gets_4 0 a ' 

bset ; . #SKF_ZERO,y :.<ctlf Igs 

move " yO,a~ 

j™P . _gets_4 0_d 



; get current fade value, . 



; apply scale factor fade 

; &.set maximum scale factor 



,1/4/94 do not set . bit error 
; 1/4/94, set scale factor. to €3 



; .test for an overload; and if so, set. channel led 



_gets_ 4 0_a 

. cmp 

jge- 



x0,a 

_gets_40_c 



;NO overload, test for max . 



.-overload sensed, set which channel led 



jset #LEFT_vs_RIGHT.y :<ctlf lgs. _gets_4Q_b . 
ON LEFT OVER LED~DCD 



; ! ! :dbg ; 



nop 
nop 
nop 
nop 
nop 



;»:idbg 

jrap ..gets^O^c . 

gets 40 b . 

. ON RIGHT_OVER_LED_DCD 
; II !dbg '- ■' \ ~. . 

/ ■'■ .; . nop ■ - 
nop. '-. 
hop ■ 
nop 
nop 

; ! ! i dbg ... 



; test. for max SKF 



_gets_40_c 
~ " cmp 
jle 
. move 

;_9ets_40_d \ 
" . ~" move 



y 0 , a 

_gets_40_d 
y0,a ~ ~ . 



a,x: (r0) 



,-test if greater 63 

;if less or eq. use current 

•;if so, .set to 63 - 



; restore scale' factor': 
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bset 
move 
move 
move 



- *~EFT_vs_RIGH7,y:<ctiflgs 
#MJMSUBBANDS*NPERGROUP, nO 
#NUMSt7BBANDS,nI 
#NUMSUBBANDS.n2 : 



.•indicate current channel 

,.; 'SBics offset -righc channel 
;bit alloc offset-right channel 

■J^^bES. thC - right ^el,.set up for the left : channel ; of the, .'; ; 
; a., reinerement rO for scale factor array by 3 for the i n »- r .H '•»'•'« 

. co, reposition the scale factor index^rray from rLht lilt t llV^lt , 
we put the negative offset in no • . " 5nc °* c)c t0 . lef = channel- 

t-™!?! ;? e SBits value array for the' next sub-band' ■'■ 
increment the bit allocation index array for, the .next sub-band- 



o. 

c. 
d. 



_gets_e: 



.move' #3,nO *'-..;' 

■move • (rl » * 

move. (r2) ♦ -v 

move (rO J ♦nO-V 

move * -NUMSUB BANDS *KPERGROUP,nC 



_gets_90 . 



SE?_LEDS_DCD 
rts 



; scale facts offset -right char 



,-show overload conditions 
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. - ' -187- • < , •' . : 

' - opt; fcraex "'■...*.' 

; (c) 1991. Copyright Corporate Computer Systems; Inc. All rights reserved.' 
; \URDC2SYN\getsws . asm" 

'.. title . 'Get decoder "external switch settings' ./ 
; This routine is used to interpret the external switches*or. -the box ' 
'; on exit ' 

; x:tstrate « raw bit rate input from' the switches '■ ■ ■ - 

x:tstsell -raw application of line 1 ' select switch : 
x:tstsel2 « raw application of line 2 select switch' 
:■- x:tstfrmt ■ frame communication formatting . 
xitstreed • Reed/Solombn. encoding switch 

; x;tstpaud « raw ancillary data baud rate input from the switches. 



y:cnot_appl - bit 4 set if any switches changed 



destroyed: 

register a 



include' 'def.asm*.' 
include ' box_ctl . asm' 

section highmisc // 



xdef 
xdef 
xdef 



selectl -..-current setting of line 1 select switch 

select2 . ;current setting of line 2 select switch 

tstrate. tstsell . tstsel2 , tstf rmt ', tstreed. tstbaud. tstmeth 



• org 


: xhe-: 




stgetsws_xhe 






selectl 


ds 


• : l 


selectl 


ds : 


1 


tstrate 


ds 


l 


tstsell 


ds 


" • l 


tstsel2 


ds 


" 1 


tstfrmt 


ds . \ 


• 1 


tstreed 


. ds .. 


1 


tstbaud 


ds. * 


' • 1 


tstmeth 


ds. 


■ 1 


endgetsws_xhe 






endsec , 






, / erg , ; 


phe : 





'-'.-current setting- of 
; curren: 
; raw hi: 

;raw application* of 

; raw application of _ 

;raw frame comminucation formatting 
Reed/Solomon encoding switch ' ' 
.;raw ancil data baud rate input from' switches 
; raw code for diagnostic vs normal operation. 



line 1 select switch 
setting' of line' 2 "select switch- 
rate input from the switches : 

line' 1 select switch 
line 1 select switch 



gets we 



bclr - - **4.y:<not_appi '-■ ; indicate' 'no changes initially 



clr 
move 
move 
move 
move 
. move 
r.cve 



a ,.x: tstrate 
a, x: tstsell 
a,x: tstsel2 
a, x: tstfrmt 
a # x:tstreed 
a. x: tstbaud 
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move 



a. x: tstmeth 



.■check the dip switches to. determine frame bit rate .' , 
; and ancillary data application and data baud rate' ,'. 

/switches for framing bit rate .. . 

• GET_BIT_RATE_DCD . ' - ' 

.•switches for framing type code and mono ..output 

GET_FRAME_TYPE_DCD . ./ V. 

. /switches tc' set. if selecting line l and/or line 2 V 

".. GET_SELECTED_LINES_DCD . 

; switches fcr ancillary data baud rate - 

. G£T_BAUD_RA7E_DCD -' 

.•switches .for method of . operation, normal audio or diagnostics 

" GET DIAGNOSTICS DCD 



move . xrtstrate.yl : 

move y:rawrate.a 

cmp yl,a x: tstsell ,.yl 

jne _gsws_B0 ' 
.' move x:selectl,a 

cmp ...yl.a: x:tstsel2.yl 

3 n e _gsws_80 
• move. x:select2'.a 

.cmp -yl.a "• x:tstfrmt;yl 

jne ' _gsws_80. 

move y:f rmformat , a 

cmp . yl,a x:tstreed.yl 

j ne -." _gsws_80 

move . y : reedsolomon, a 

cmp yl,a x:tstbaud,yi 

jne . . _gsws_80 
. move y:baudrte,a 

' cmp. - yi, a. .". ' 

v jne' ' _gsws_80 . ■•••■'>. 

.•see if we have to switch from normal' to the diagnostic method of operation 



; look' for. a change in framing rate 
;set up to test line 1 selection 

;set up to test line. 2 selection 

; set up to test framing format 

; set up to test' Reed/Solomon . switch 

;set up to test ancillary data baud 



move 
est" 



x: tstmeth, a 
a 

_gsws_90 



_gsws_30 



bset" #4,y:<not_appl 



.-get the diag nostic code- 

;see if other Chan normal operation 

; normal operation; continue. 



vindicate changes in external switches 



_gsws._90 



r.ts. 



SUBSTITUTE SHEET (RULE 26) 



WO96/32805 PCT/US96/04835 



-189. - ■ ' "• 

opc . fc,mex : .-. 
; (c> .1991. 'Copyright Corporate Computer Systems/ Inc. All rights reserved. 
; '\URDCDSYN\get sync. asm: Ben's mux 

title . 'Get Sync' . / ' u 

; This routine gets the sync word. 

; on exit '- ■■ "'./ ".*. ' ; - '.'"'* 

. al » right justified sync value padded on right; with zeros V : 
: r6 » updated 
. ; .". . : y:sc -.updated'; 



a2 

al 

b * 

xO 

xl 

yO 

yi 

r4 



« destroyed 
= destroyed 
destroyed 
b destroyed . 
« destroyed 
■ destroyed 
destroyed 
destroyed . 



n4 - destroyed 



getsync 



include 


'def .asm' 




or 9 


,phe: -\ .. 




-move 


#NSYNC,n4 


number of bits 


jsr 


getvalue 


. ;get sync right justified. 


move 
and 


#>G£TSYNCMSK,xl 
xl.a 


• ;mask for sync word hi order 
.•mask off any high order l's 


rts - 
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opt 



(c) 1991. Copyright Corporate Computer Systems. Inc.- All rights reserved. 
\URDCDSYN\getsystd.asm: set led for MPEG-ISO vs -old CDQ2000/CD01000 
• ■ : title '. .'Get Syst' \; •-" 

Thisrcutine decodes. the KUSICAM frame header information ' 



on exit 

x:f indidbit 
yictlflgs » updated 



x: fndbit : 
x: fndsmpi ; 
y rbitsf rm - 
x:padbit . 
y :privacybit 
y.frmtype" 
y : sibound 
y : max subs 
-y: copyright 
y: original 
y: emphasis 
x:AllwAdd 
x:skftbl 



Ifhigh sample rate; Oolow sample* rate 
{ PROTECT bit: 0-YES for checksum, 1-NO! . 
(STEREO vs MONO bit: 0-stereo, l«mono) 
(JOINT FRAMING bit: 0-not. l«jcint) .' ' 
. ISPLIT~M0N0 FRAME bit: 0«nc, l»yes),. - 
bit rate coHe 
sampling rate code - * 
actual frame. length in* bits 

0« frame not. padded, 1- frame padded w 8 added bits 

privacy bit value in frame header 

stereo, joint stereo, dual mono or monc 

joint stereo intensity boundary subband count . 

number of sub -bands encoded in BAL's. 

copyright bit value in frame header 

original/home bit value .in frame header. 

emphasis value, in frame header 

address. of the Allowed table to use 

address of the BAL's bit table to use. 



a 
b 

xO 
xl 
y0 

:-yi 

rO 
rl 
r4 
n4 



- destroyed 

- destroyed 

* destroyed 
.» destroyed 
a destroyed 

• destroyed 

- destroyed 

- destroyed 

- destroyed 
■ destroyed 



by get value call 



include 
include 

org 



'def .asm' 
*box_ctl. asm' 

pbe: . • 



get syst 

•; decode the bits 0 thru 3 of the frame header: 

• ■■ bit description . . 

- C ■ high or -low sampling' rate: . ' . 

■;• 1 ' - . i . high rates 4B, 44.1 and 32 K sampling rates. 

. ;•• ; o - low rates 24. 22.05. and 16 K. sampling rates 

• V 1-2 .'MCSICAM. Layer: - ' 

; 11 - Layer I ■• 

■ io -.Layer .II . 

01 • Layer: III - . 

3- CRC-15 checksum frame header protection: 
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move 



]sr 
'move 
and 

bset 
move 
jclr 
bcir 



0 » cnecksum protection encoded after frame header" 

1 • NO checksum protection ' 

• #NSYSTHDR_1 , n4 • ;get field Hi (bits 0-3 ir. hdri 

. ; bit 0 indicates protection checksum . 

• '. 0 • yes checksum. included 
;" 1 ■ no checksum included 

;get data right justified 
;mask for get value -of header field 1 
;mask off high order bits 
; 6 set len of bit rate-bits 4-7 in hdr 
rdefault that CRC protection applies 
_ .-see if CRC bit set indicating not appl ■ 

#0,y : <not_appl,_gsyst_00 ;hdr shows zero/ CRC is included 
# PROTECT, y: <ctiflgs ~" ;se; that CRC protection NOT applicable: 



getvalue 

#>MASKSYSTKDR 1 , Xl 
■XI. a ftNBITRATE. n4 

#PRCTECT. y : <ctif Igs 
! al,y :<not_appl 



_gsyst_C0 _ 

set the high or low sampling rate ID code 

; bset • ■ #0 ,x : fndidbit ' /default, with high- sample rate .bit .on 

jsec #3 ,y : <not_appl._gsyst_01 ;if set for high, continue 

bcir. #0,x:fndidbic . "*~ rreset to low sample rate, bit. on 

_gsyst_Ci , 

rdecode -the bits 4 thru 7 of the frame header: bit rate 



jsr ' getvalue 

move #>MASKNBITRATE.Xl 

and. : xl,a y:spltrte.xl 



,-get bit rate code right justified 
;mask for getvalue of frame bit rate 
;mask off high order bits 
; & get the 1/2 bit rate code 
;save header bit rate code 



•..move al,x:fndbit . 
rtest for CD320GO split mode of transmission, and check for a split mono frame 



bcir 

.Dcir 

move . 

cmp 

jne 



#S?LIT_MONC_FRAME l y:<ctif lgs '; clear indication fcr split mono. 

U S PL I T_MODE , y : < ct I figs , _g sys t_0 5 ;test for. split, mode cf trans 

al,a. ;clean up junk after getvalue- 

xi/a ;see if frame, rate same as split rate 

gsyst 05 ? if, not, we should have a full frame 



since we matched bit rates, . this must be a 1/2 bit rate in mono 

bset'' - #SPLITJ40NO_FRAME;y:<ctIflgs vindicate for ancillary data 
:_gsyst_C5 '. . • 

;decode the bits 9 and. .9 of the frame header: sampling rate . 



. move . 

3 sr. 
. move 

move • 
.-decode the t 



. #NSAHPL£RATE,n4 
getvalue 

# >MASKNSAMPLERATE , xl.: 
xl.a #NSYSTKDR 2,n4 



ai.x:fndtsmpl 
:s to and 11 of the..frame header 



,-eat sampling rate . 
; get sampling rate-right justified . 
; mask for getvalue cf data sampling rate. 
;mask off high order bits. 
; & set len field #2 - (bits 10-11 in hdr: . 
; save the header sample rate . 
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; ' bit description '_'■■*•"'• 
; ' 10 , padding bit : ' ' 

' . ; 0 » frame is not padded. - ' 

** 1 » frame is padded with 8 bits 

; . 11. privacy bit • ' -v 

..;test the frame padded flag in header. ;(bit 10 ) and update . frame bit count 

j sr. . .getvalue ;get data right justified 

move . #>MASKSYSTHDR 2,xl ... . . . . ■ ca , . 

■ and . xl, a. #>PAD~SLOT,xl ... ;mask off high order bits " 

„ & get the padded bits added to frame 

.... move ■ al y:<not_appr ;S ee if frame padded- bit set 

move . y:frmbits.a . ;get the unpadded frame bit count ' 

• !?^ :p ^ Xt -I-- default that.- the frame is not padded 

bsJt' -J^^^^ PP "^ gSy ? C - 06 . hdr bit nct set ' no padded bits 
oset- . #0,x:padbit • ; indicate padded bits . 

• ; add ; xl ' a ../// , ;add pad bits to frame bit. count'.' 

..gsyst^G's . /• 

;set the frame length in bits (normal or padded with 8 bits) 
;set the f-ame. privacy bit in header (bit 11) 

moye a,y:bitsfrm -store actual, frame bit count 

... .. bclr #0,y:pnvacybit ;defaulf the frame header privacy bit 

. CLR_PRIVACY_BIT_DCD ; in decoder- status . Privacy bit . 

jclr . . #0, y:<not_appl,_gsyst 08 

bsec • #0.y:privacybit" . ." . .;set the frame header privacy bit 
' SET_PRIVACY_BIT_DCD , .;.';in decoder status P ' V 

_gsyst_08 

/decode the bits 12 and .13 of the frame header: frame type ' 
; ..00 * FULL STEREO (2 channels) . 
; 01 = JOINT STEREO (2. channels) 
; 10 m DUAL MONO (2. channels) 

; 11 - MONO : (1 channel) 

/ move : #NFRAMETYPE,n4 ; get frame type (bits 12-13 in hdr) 

jsr getvalue . ; get frame. type right justified . 

move #>MASKFRAMETYPE.xl ;mask for getvalue of f raming . type 

- ..and xl, a . . #NSTINTENSITY. n4 . • ; raasJc off high order bits 

; & get' stereo intesity (bits 14-15) 
move al,y:frmtype ;save type of frame 

;set the default MAXSUBBANDS as for. 2 channel frames 

move #oldccs,r0 . ;to test if ..old- CCS .CDQ frames 

move . y:maxsubs_2,yl . ,: . /default to 2 channel . MAXSUBBANDS 

if the old CCS flag is set to decode from old CCS CDQ' s, use mono MAXSUBBANDS 

jclr , #0,y: (rOJ ,_gsystJ39 . ; if MPEG- ISO, continue 
.move .y;maxsubs_l,yl /.default to MONO MAXSUBBANDS . 

_gsyst_09 ''. ; . . 

; set the. type cf; frame! flag . 
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. move 
move 
' cmp 

.-..■',:*. ■ jne 
..bclr 
.■• bclr 
3 ra P 

_gsysc_10 ' " 
cmp 

--' . ■ jne" 
. - ; bclr 
• . bsec 

• .jmp , 

_gsyst_20 

• • CTTtp ' • 

" bclr 
. bclr' 
jmp 

_gsyst_30 . 
-.. ~ bset 
. ' bclr 

; sec the MAXSUBBANDS for MONO channel frames 

move y:maxsubs_l,yl . .! ' ; gee to MONO MAXSUBBANDS 

-.. ;if SFLIT_MONO_FRAME, use split frame mono MAXSUBBANDS 
. jelr #SPLIT_MONO_FRAME,y:<ctlflgs,_gsyst 40 

* move y:spltmaxsubs,yl . ,;get. to split MONO MAXSUBBANDS 

_gsysc_40 ' . 

;set the number of sub-bands encoded in the BAL's . . 

move. yl , y : <maxsubs . ; set the working MAXSUBBANDS for frame 

light led to indicate MPEG-ISO compatible frames . ■ 
. ; ; .or old CCS CDQ2000/CDQ1000 non- conforming. frames at low bit rates 

move #oldccs,r6 . ••. ;to test if. old CCS CDQ frames 

nop " . - .•,;.:*.-." ■ ; ' 

jcir #0 # y:(r0).,_iso_led. . ,;if ISO. set led as ISO 
• CN_MPEG_ISO_vs_CCS_LED_DCD .-/ . ; indicate old ccs frames - 
.jset : /*... #l,y:.(rOJ ,_do_leds ;if CDQ1000, set led as CCS ' ' 

jset .. . #STEREO_vs_MONO,y:<ctlflgs; iso led ;if MONO, ISO led 
move -. "#>SAM48K,xO . ;test fbr 48 K sampling 

. . move; #>SAM32K,xl ;test for 32 . K sampling 

move . #>BITRATE_56,yO Y .-low bit rate code 56 K 

. move y:smplrte7a ;to test sample rate code ■ 

cmp . xO,a . . #>BITRATE_96,yi. ;see if 48 K sampling 

set .hi bit rate 96. K ® 48--' 

• jeq. ■ _tst bit ' v .. ; if 48, test bit rate range - 
'cmp xl.a" • #>BI7RATE_160,yl .;see if 32 K sampling-' 

. Y & set hi bit rate 96 K -5.32 . • 
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y-frxtype,a 
• *>FULL STEREO, xl 
xl,a " #>JOINT_STEREO,xl. 

gsyst 10 - 
?STEREO_vs MONO , y : < c t 1 f 1 gs 
#JOINT_FRAMING , y : cctlf Igs 
_gsyst240-; 



get. the frame type 



/indicate stereo samples 

; clear joint stereo indicator 



xl,a #>DUAL,xl 

gsyst 20 . 
# STEREO vs MONO,y:<ctlflgs 
. #JOINT_FRAMING,y:<ctlflgs . 
.gsyst^O 



[indicate stereo samples 
; indicate stereo samples 



. xi,a ; ... • 
. _gsysc 30 

.# STEREO_vs_MONO ,y:<ctlflgs 
. #JOINT_FRAMING,y: cctlf Igs ' 
_gsyst~40 



;dual channel is same as scereo. 
.•indicate stereo samples -' . 
; clear joint stereo indicator ■* 



# STEREO vs MONO, y : <ctlf igs 
#JOINT_FRAMING,y:cCtlflgs : 



/indicate mono samples 
;clear. joint stereo indicator 
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jne 



Lso led 



esc bit 



move. y:bitrate,a 

cmp y0 # a 

jit _iso_led 

cmp yl , a ' 

jle _do_leds - ; 



iso led 



OFF MPEG ISO vs CCS LED DO 



r if not 32 . set ISO led 



.; check bit rate in the range 
•test vs lowest ISO high code 
;if less, ISO led 
;test vs highest ISO high code 
;if -less or equal , ' leave CCS led 



; indicate iso compatible frames 



do leds 



SET_LEDS_DCD ■; 

; decode the bits 14 and 15 of the frame header: 

•mode extension (joint . stereo intensity boundary). 

00 « stereo. for sub-bands 0 thru 3, joint .for sub-bands 4 and up 
.;■ 01 » stereo for sub- bands 0 thru 7, . joint' for sub-bands. 8 and up 
; 10 - stereo for sub-bands 0 thru 11, joint for sub- bands 12 and up 

11 » stereo for sub -bands 0 thru 15. joint for sub-bands : 16 and up 



move . 
and 

' . jclr - 

. move 
move 
cmp • 
jeq 

■ -cmp. 
jne 
move 

' . . jmp 

_gsyst_B0 

cmp 
jne 
move 



getvalue . 

# >MASKSTINTENSITY 7x1 
xl,a ABOUND 4 , rO 



. ;get data' right justified 
.•mask.for getvalue of intensity bound 
;mask off high order. bits 
• ; & set up for joint just in case 
#JOINT_FRAMING,y:<ctlflgs,_gsyst_90 ; intensity is meaningless . 



al,a • -. 

#> INTENSITY 4,b • 
a,b . #>INTENSITY_ 
_gsyst_90 . " 



8,b 



;clear off any junk. . 

;get code for. channels 4-31 intensity. 



a.b r>INTENSITYJL2,b i 

gsyst 8 0 ; 
#BOUND~8,rO 
_gsyst_90 , 

a,b ■■ ' #BOUND_16,rO . 

gsyst_90 ~ ' , 
iBCUND 12, rO, 



not joint, intensity is meaningless 



not joint, intensity is meaningless 



_gsyst_90 

"V move . r0,y:sibound.. . '\ . ; save intensity stereo sub-band bound 

. ; decode the bits 16 thru 19 of the/frame header': 

; ■• bit description • 

; 16 copyright bit 

0 « no copyright .■' 
1.- protected by copyright 
.; ' . 17- original/home bit:- 
■ ;.' , 0 - bitstream .is a copy : 

; 1 • bit stream is an original • 

; •'■ . 18-19 emphasis : - ■ /• . 

.;' ■ no emphasis ■ \' - . . • 

"01 ■ 50/15 microsec ., emphasis * ; : 

: ■ ' ■ ; 10 .= reserved - 
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.11 « CCITT J. 17 emphasis. 

move \ #NSYSTHDR_3 , n4 / 
jsr getvalue- 

move-/..* *>MASKSYSTHDR_3 f "xl ' 
'and ' *. xl,a , • 
move al,y:<not_appl 

clr . ■ :. a .■ - 



;get field **3 (bits 16.-1-9) • 
;get.data right justified 

; to' mask off unwanted bits 
;raask off the unwanted bits 
. ;move to addr co:be tested 
; to restore y:<not_appl as all O's 



;set the copyright bit, original /home- bit 'and emphasis' code from header 



bclr . #0,y: copyright .-default bit as not . set ■ 

CLR_COPYRIGHT_BIT_DCD ; in. decoder status . 

}clr #3,y:7not~appl,_gsyst_91 ; if bit 16 not set; 

bset #0,y: copyright; . ,-set the copyright bit . 

SET COPYRIGHT BIT DCD ""'.'■ ' .; in decoder status 



continue 



„9syst_9i • } 
r bclr *. .ff0,y: original .". ,-defauit bit as not set 

CLR_ORIGINAL_BIT_DCD . ; in decoder status 

jclr- #2,y7<not_appl,_gsyst_92 ;if bit 17 not set,, continue 

bset ■: MQ, y:original ~ /set the original /home bit 

SET ORIGINAL BIT DCD . ; in decoder status 



_gsyst_92 

" . " move a„y:emphasis 

- clr emphasis bit_0 dcd . 
. clr~emphasis3bit_i~dcd 

jclr #l,y7<not_appl,_gsyst_93 
bset #1 ,y:emphasis " .. ~ 
SET_EMPHASIS_BIT_1 JDCD \ 

_gsyst_93 

~ . . ~ jclr . #0,y :<hot_ appl ,_gsyst_94 
bset. #0,y:emphasis ~ 
S ET_EMF KAS I S_B I T_0_DCD . . 

_gsyst_94 ■' 

.; restore y.:<not_appi to all zeros 
move , a,y : <not_appl. 



;zero the emphasis code 
; in decoder . status "'".■!. 
;in decoder .status 

; if. bit 18 not set, try bit! 19 
;set bit 1 of emphasis code ; . ■ 
;in decoder status 



. Vif bit 19 not- set, finish up 
set bit 0 of emphasis code , 
in decoder status 



r reset the dummy variable 



;Set the proper Allowed table and BAL's bit table addresses: 
; test for low sampling rate Allowed table 



move. 
* nop 
jset 

move 
move 
jmp 



tfsmplidbit ,r0 

# 0 . y : { r 0 ) , _gsyst_95 

#Allowed_3.,rO ■-/ 
*skftbl_3,rl . 
_gsyst_100 . . • :. . 



;addr of frame header ID bit (0 « low) 

;if high rate,. select Allowed table 

;addr cf low sampling allowed table 
;addr of low sampling BAL's bit table 
;gb to store. Allowed table address 



_gsyst_95 



;Set the proper Allowed table address based on working MAXSUBBANDS (y:<maxubs> 
; if ', less, than 27,. used table 2 
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move ■ y : < max subs ,xC 
move ' fl>27, a ■ ■ - 
• move ; - *skf tbl_l . rl 
crop . x0,a : ~#Allowed_l.rO 

-jle _gsyst_l00 



.196- 

;get current MAXSUBBANDS 

;to see which of 2 tables applies 

; addr of high sampling BAL* s bit table 

;see if need the low bit rate table 

; & set up as regular Allowed table 

; regular Allowed table applies- ■ 



.-select the lower bit fate Allowed, table 



move 
move 



*Allowed_2,rO 
#sk£tbl 2,rl 



;addf of high; sampling. BAL' s bit " table 



_gsyst_100 

;set: the, address : of the selected. Allowed table 
;set the address- of the selected BAL' s bit table 



move 
move 



rO,x:AllwAdd 
rl.x:s)cftbl 



res 
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opt f: ■ 

; (c) 1991. Copyright Corporate Computer Systems, Inc. All rights reserved. 

; \TODCDSYN\ synch, asm • 

title 'Synthesize a group of sample and output audio' • 

synch. asm: this is the main of the. poly synthesis routine 
;. it handles a new group of samples to be decoded and inverse quantized 
for stereo a group of samples contains 192 samples (96 left & 96 right) 
if mono a group of samples contains 96 samples only ; - . 



include 
include 



'def.asm'. 
'box cel. asm' 



: xdef 

6rg'. ; 
stsyrith_yhe 

dualchan 
synthN6Save 



.; endsynth_yhe -.. 

endsec 



section highmisc 
xdef dualchan 

synthN6Save 



yhe: 



ds 
ds 



; control for channel swap ct Is 
; instead of ssh 

;bit .0 » 1 means copy left to right 
;bit 1 » 1 means copy right to left 
;bit 2*1 means swap left & right 
;bit 3 •» 1 means mute both left & righ 



syhth 



org 



move 
move 



phe : 



#dualchan, rO 
#ASMData.rl . 



;set addr of two chan ctls 
.•position to left channel 



;see if the frame is to be muted 

j clr #MUTE_LEFT_and_RIGHT , y : ■< rO ) , _synt_00 ■ 
;set the number of words in both channels , for the MUTE do loop 



move #NUMSUBBANDS»OTERGROUP*2,nO 
move*' #0,nl 
jmp _synt_20 



,* 2 channe 1 s numb, words to mute 
;hold position at left channel 
; go to the mute, loop 



;if a stereo frame, checkout for special mute or swaps 
. jclr • #STEREO_vsJ*ONO,y:<ctlflgs,_syr.t_40 .■ 



move :.. #NUMSUB BANDS * NP ERGROUP. nl. 
move • ; rl , rO 
move " • (rl)-+nl ' 



; spac i ng t o r i ght channe 1 
.•position to left channel 
( addr of right channel 



;copy c.ne ie: 



c right 
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■ do #PJUMSUBaAKDS*NP£RGROUF; svnt C5 

move x:.(r0)*,x0 • " ~ . . amr ~w 

move , x0,x:(rl)+ ' - ^« left channel value 

. *.- 'P u v left : va^ue.into right. " " 

, _synt^Q5 • ". ."..•"*."■ *.. \ • " "\" ■ "" ■ 

-; if -we. do not have to mute a channel (mono to both) ■ 
; skip ahead, tc restore registers used .. ' 

jBeC « MON ^OU^BpTH.y:<ct:flgs ( _synL.90- , out to both, go restore regs 
• : inc. the; number of words .in one channel for the mute' do loop 

move SNUMSUBBANDS *NPERGROUP , nO ^ ■ ■ . ; l channel numb words, tc mute 
.-set up to' mute the .channel not selected. for mono 1 . output'. 

move •• #ASMData.rl'. . . " t ■ 

move- #0.nl .position to lef:. channel 

' . 'Start at left channel ■ 

; if not- the left channel for output, continue' 

; else, position to the right channel, for muting . ' ' , 

;jset.: »MOKO_ODT_CHANNEL,y:<ctlflgs;- synt 20 ■ -if r-oht' 

■ _ s ynt_2o " ' ■ - ' . 

;mute the : proper channel (s> 

mlve ' !ri?!ni =P mute the- channel . . 

move .!rl)*nl , . ..-addr of channel to mute. . 

do . • n0,_synt 30 '- 

move- ; ;x0.x: (rl7. : , ■ . ' , V > ; zero value in chosen channel • ^ 

_synt_30 ■'. * " " - \' ' ' ; • .• 

~ 3«P \ -v. _synt.90 V ;do the polysynthesis • ' • 

_synt_4C ■ . ; ■"' 

;see if the two channel frame requires any swapping 1 - . 

■; swap- .left and. right 

left", into right- • " 

. / right 'into lef t *■■ ,"..•'/ 

■ .jcirv.- #SWAP_LEFT_and_RICHT/y:'(rOJ' ;_synt 50 
' ; swap -the left and right channels -.*' ; '. 

move #NUMSUBBAOT)S*NPERCROUP.nl V . ' /.spacing to right channel ' 

Ti;F 0 ^''' ■ ■.-Position -to .left channels 

. move . :. V .^l f *nl- . ;addr cf right channel 

;copy; the left into right '■/[■'' [ ; • ; . . , 

do . • #NUMSUBBANDS*NPERGROtfP, synt 45 = - 

move . ' xijrO.xCT V\ ■; ■ • " . ; g ec left 'channel value-' 

; move- xr-dlKxl / • v ;get right channel value ••' 
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move 
move 



xO". x : !rli * 
xl. x: (rC; * 



_synt_4 5 : 



;put .left- vaiue into right- 
;put right. value into left 



,*gb see if any channel mutes . 



jmp _synt_80 
_synt_50 

;see if a copy the left into the "right 

jclr #CO?Y_LEFT_to_RIGH7,y : trO) ,_synt_60 ;if not copy left to. right 

;copy. the left channel into .the right channel.... 



move . .; ■ #NUMSUBBANDS*NPERGRCUP, nl 

move rl . rO 
• .move v , (rl>+nl • 
. jmp- . _synt_7 0 ; 



; spacing to right channel, 
.♦•position to left channel 
;addr of right channel. . 
;do the copy . 



' _synt_60 

;see if a copy the. right into | the left 

jclr 8COPY_RIGHT_tc_LEfT.y: (r0),_synt_80 ;if not copy right to left 
;copy the right channel into the left channel. 



move 
move 
nop 
move 



* NUMSUB BANDS *NPERGROUP . n0 
rl.rO. 



(r0)+n0 . ' 
• _synt_"7C ■' . : 

■ .-copy the one- channel into the other . 

«NUMSOBBAKDS*NPERGROU? . _synt_8C 



; spacing to right channel 
..•position to left channel 

/addr of right channel 



de- 
mo ve 
move 



x: (r0)*,xO 
xO.x: trl) * 



;get source channel value 
;put. source vaiue. into destin 



_syht_80 

;see if. either channel is "to be muted . 

jmp-*' ."_synt_05 '.' 
_synt_9G. 

;pass both channels to the polysynthesis routine 



move 


. #ASMData,rO 




move 
move 
move . 
move 


n6',y:synthN6Save 

#1023,m2 

m2 ,m3 ■ 

#32, no . ; 


;save 

;set to' be 
;set to.be . 
.-set scale 


jsr ;. : 


' polysynt 




move 


y:synthK6Save f n€ :. 


; restore n6 
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move ; y : linear , ml 

' _ move.-. ' ml, m2 
.V' move: ral,m3. 
•■ move ' ' . ml , m5 ■ 

: „ res \ ' [ * : . ';. ".' 



; restore tc linear addressing 
/restore to linear addressing 
;restore to linear addressing 
; restore 'co linear , addressing 
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c:\musicam\dsp\acorTj\xirdcdsyn\translte.asm-.-. 

■ include \ultma\ transit e .asm' ' 
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claim " • ' \' , • 

What is claimed is: , 

1. An audio transmission system comprising: 

a coder for coding an input audio signal into 
5 a digital signal tp be transmitted through a 

traditional analog telephone network, the digital 
signal having a transmission rate of 28.8 kilobits 
• : • • : ; . \ : ■ per second or less; and • 

a decoder for decoding the digital signal that 
10 is received form the telephone network to provide 

an output: audio signal with a frequency range 
greater than 4 kilohertz. 
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